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ABSTRACT 



Shipboard fires have plagued mariners for centuries; they still 
cause significant damage and casualties each year. Improved fire 
prevention and control require a sound knowledge of the phenonema 
of fire. At the same time, a study of fires in enclosed pressure vessels 
has been undertaken by the Navy using FlRE-1, a large pressure 
vessel, to conduct full-scale experimental fires. A computer model is 
being developed to simulate the FlRE-1 tests. This three-dimensional 
finite difference model uses a cylindrical/spherical coordinate system 
and includes the effects of turbulence, surface and flame radiation, 
internal ventilation, global and local pressure corrections, strong 
buoyancy, and conjugate boundary conditions. Given a heat release 
rate, the model computes temperature, pressure, density and velocity 
fields for the entire vessel. This thesis presents the internal 
ventilation feature of the model and compares the numerical results to 
a nonventilated case. Additional features such as combustion and 
gaseous radiation are being incorporated to more accurately model 
real fires. When validated, this model will become a useful tool for 
evaluating fire prevention and control procedures and equipment. 
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I. INTRODUCTION 



A. BACKGROUND 

Fires aboard ships pose a great hazard to both personnel and 
materiel. Millions of dollars are spent annually on repairs of damage 
due to fires. Personnel casualties caused by fires cannot be measured 
in dollars and include both fatalities and severe injuries. Most person- 
nel casualties result from toxic gas or smoke inhalation rather than 
contact with the fire. The prevention and control of shipboard fires is 
one of the Navy’s and Coast Guard’s greatest challenges in future ship 
design. The computer simulation of a shipboard fire presented in this 
thesis provides a tool which may be used to reduce the damage from 
shipboard fires. 

In order to prevent fires and their associated casualties, it is nec- 
essary to better understand the basic phenomena of fire and smoke 
propagation within enclosed spaces. This requires knowledge of vari- 
ous physical phenomena; combustion, fluid mechanics, and heat and 
mass transfer. Extensive research using this basic knowledge is 
needed to predict the behavior of fires. With a better understanding of 
fires, ship designers and engineers can reduce the probability of igni- 
tion and propagation. New systems and procedures for fire control 
can be developed to reduce the losses should a fire start due to acci- 
dent, equipment failure, or hostile action. 
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Shipboard fires have unique complexities not found in other fire 
scenarios. Access to a fire area is limited and spaces frequently con- 
tain electronic equipment, electrical power sources, machinery, 
combustibles, or toxic materials. Compartments are often closed, 
permitting pressure to build up in the space. Self-contained or recir- 
culating ventilation systems present unusual fire scenarios. All of 
these complications must be considered in the study of shipboard 
fires; the model developed in this thesis has incorporated two of these 
complexities: pressure build-up and recirculating ventilation. 

Shipboard fire research is currently being conducted by many 
organizations, including the Navy and the Coast Guard. Research 
includes both experimental work and computer modeling. Experi- 
mental work is limited due to its high cost. Scale models of fires do 
not predict the behavior of full-scale fires because of the complexity of 
the fire phenomena. It thus becomes necessary to conduct fire 
research with full-scale testing. At the Naval Research Laboratory in 
Washington, D. C., the U.S. Navy built FIRE-1, a large pressure vessel 
designed to simulate fires aboard submarines and surface ships. This 
unique test facility offers the researcher an opportunity to study a fire 
with the pressure building up in the vessel. This models a fire in a 
submarine or in a closed compartment on a surface ship. 

Today’s supercomputers, with their extremely rapid computa- 
tional speed and massive storage capability, offer a researcher the 
option of computer modeling of fires. The systems of partial differen- 
tial equations which govern the fire phenomena can now be solved 
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numerically. The first models were simple, but current models are 
building on the older models, incorporating more phenomena and 
producing more accurate results. As each new submodel (such as a 
combustion or gas radiation model) is added, the quality of the 
numerical solutions improves. The models are being verified by com- 
parison with actual fires, such as those conducted in FIRE-1. 

When validated, computer models provide an excellent tool for 
the fire researcher. In experiments, each test must be repeated many 
times to verify the procedures, test facility, and data. The cost of 
these experiments becomes prohibitive. Experimental researchers 
must determine which test scenarios will produce the most meaning- 
ful results and how to design the data collection systems and proce- 
dures to monitor the most critical parameters. This is one aspect in 
which computer fire simulations become invaluable. By developing a 
code which accurately simulates a fire in FIRE-1, various fire scenar- 
ios can be modeled at a reasonable cost. The most interesting scenar- 
ios can then be investigated by experiments in FIRE-1. 

Computer models may also be used in modeling fires which can- 
not be tested in full scale due to the size and geometry limitations of 
FIRE-1. An entire area of a ship might be modeled and the progress 
of the fire within and between compartments could be investigated. 
With such simulations, the spread of fire could be analyzed, and new 
methods can be evaluated to prevent the spread of fire from compart- 
ment to compartment. Additionally, the efficacy of fire extinguishing 
systems can be evaluated by introducing models of these systems into 
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the fire model. All of these future uses require a validated code and 
the use of a large computer. While the cost of a computer model test 
is significantly less than a full-scale test, it still requires extensive 
computer time. The current code running on an IBM 3033 uses 
approximately 1.5 CPU hours per second of fire time. A supercom- 
puter and vectorization could reduce this time by one or two orders of 
magnitude, but the number of model tests needed to fully validate the 
code still will require significant supercomputer resources. 

B. COMPUTER MODELING 

There are two basic procedure for modeling fires: field and zone 
modeling. Zone modeling involves dividing the fire area into control 
volumes or distinct regions [Ref. 1]. Each region contains a phenom- 
ena of particular interest, such as the base of the fire, fire plume, 
heating of the wall, ventilation inlet or outlet duct, etc. Mass and 
energy balances are conducted across the boundaries and interconnect 
all of the control volumes. This procedure provides information for 
the entire area, but the phenomena occurring within each control vol- 
ume are not always understood. 

Field modeling, also known as differential field equation model- 
ing, divides the eompartment into finite volume elements. The con- 
servation equations in differential form are used to calculate the mass, 
momentum, energy, and smoke concentration at each time interval. 
The temperature, velocity, pressure, density, and smoke concentra- 
tion are known in each volume element. Models for additional physi- 
cal effects, such as turbulence, forced ventilation, and different 
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geometry (such as equipment or decks) can be included in a field 
model to better simulate actual fires. Field modeling requires a large, 
fast computer with significantly more memory than zone modeling. 
The accuracy of the solution depends upon reducing the size of the 
control volumes: this increases the number of individual cells, the size 
of the problem, and the computing expense. 

Much fire research has been conducted to provide a solid founda- 
tion for this thesis. Work performed at the University of Notre Dame 
[Refs. 2, 3] included a two-dimensional finite difference field model of 
aircraft fires. It predicted the movement of hot gases and smoke as 
well as temperature and smoke concentration levels in the seating 
area of an aircraft cabin. Additional work by Nicolette, et al. [Ref. 4] 
included the development of a two-dimensional model of transient 
cooling by natural convection. This model utilized a fully transient 
semi-implicit upwind differencing scheme with a global pressure cor- 
rection. Experimental data showed good agreement with the numeri- 
cal predictions. 

Recent studies [Refs. 5 through 13] have developed numerical 
solutions for natural convection in three-dimensional rectangular 
enclosures using field modeling. They successfully solved nonlinear 
partial differential equations with a finite difference method. Models 
and studies involving three-dimensional cylindrical coordinate buoyant 
flows [Refs. 14 through 20] deal primarily with horizontal cylindrical 
annuli that have walls of different temperatures. Smutek, et al. [Ref. 
19] studied convection in a horizontal cylinder with differentially 
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heated ends at low Rayleigh numbers. Yang, et al. [Ref. 20] conducted 
a similar numerical study for high Rayleigh numbers. 

The difficulty in calculating pressure has been addressed using 
methods that eliminate pressure from the governing equations. 
Stream function-vorticity methods [Refs. 14 through 19] have been 
used to solve natural convection problems in several geometries. The 
problems inherent in this method include instability at moderate to 
high Rayleigh numbers, difficulties in handling three-dimensional 
situations, and the lack of pressure information, which often is a 
parameter of interest. These problems are addressed by Yang, et al. 
[Ref. 20], who propose the use of primitive variables with an arbitrary 
orthogonal coordinate system. 

Ozoe, et al. [Ref. 21] used a vorticity vector potential formulation 
and alternating-direction-implicit finite difference method to compute 
velocity and temperature fields for three-dimensional natural convec- 
tion in a spherical annulus. 

Baum and Rehm [Refs. 22 through 25] have developed several 
field models for prediction of fires. Their models use time-dependent 
inviscid Boussinesq equations to simulate three-dimensional buoyant 
convection and smoke aerosol coagulation. Field models have also 
been used to model room fires [Ref. 26] and fires in a general three- 
dimensional enclosure [Ref. 27]. 

The numerical method developed by Yang, et al. [Ref. 20] and used 
in this thesis is based upon the use of primitive variable finite differ- 
ence discretization in generalized orthogonal coordinates. This 
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method has the ability to handle complex geometries and the stability 
inherent in the primitive variable formulation. 

C. FIRE-1, THE TEST FACILITY 

To better understand the phenomena of fire inside a pressurized 
compartment, the Navy built an experimental pressure vessel for con- 
ducting test fires. This test facility is designated FIRE-1 and is 
located at the Naval Research Laboratory in Washington, D. C. A brief 
summary of FIRE-1 is contained here; a more detailed report is pro- 
\ided by Alexander, et al. [Ref. 28]. Figure 1.1 shows the basic layout of 
FIRE-1, It is a 46.6-foot-long cylindrical vessel with hemispherical 
ends, capable of pressures up to 89.7 psi at 450 F. The radius of both 
the cylinder and the end caps is 9.6 feet and the total enclosed volume 
is 11,639 cubic feet. The vessel is constructed of 3/8 inch ASTM 285 
Grade C steel and contains rupture discs at each end to prevent over- 
pressurization. 

Instrumentation monitors various fire parameters, including 
pressures, temperatures, and smoke concentrations. Pressure trans- 
ducers and bourdon tube gauges are located at the north and south 
ends of the vessel. Thermocouples and radiometers are installed as 
shown in Fig. 1.2. An array of ten thermocouples is located at each 
end of the tank. Each thermocouple is a chrome alumel wire of 0.2 
mm diameter having ceramic insulation enclosed in 1 mm diameter 
Type 304 stainless steel jackets. Thermocouples are also located on 
the chamber wall to measure the inside and outside wall temperatures. 
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Figure 1-1. 



Drawing of the FIRE-1 Test Vessel 
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2. Side View of FIRE-1 With Sensor Locations 
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Additional thermocouples and radiometers are available for temporary 
installation at various locations as required for different tests. Smoke 
obscuration can be measured three ways: visual obscuration with video 
cameras, particle analysis, and obscuration with laser detectors. The 
fuel burn rate is determined with a round tapered-edge fire pan with 
various cross-sectional areas, provided with a constant-level fuel sup- 
ply system. The operation and calibration is described by Alexander, 
et. al. [Ref 28]. To date, the burn rate data has not been accurate, so 
further experimentation is necessary to provide fuel burn rate. As dis- 
cussed later, the lack of accurate burn rate data precludes complete 
verification of the computer code. In the interim, several methods of 
deducing burn rate have been developed for use in the computer 
model. 

Three features permit modification of the tests to more accurately 
model the submarine or ship compartment being tested. First, there 
are two removable decks, one installed in the mid plane of the vessel 
and the other slightly over three feet above the bottom. Grated or 
solid deck plates can be installed to test various shipboard configura- 
tions. The decks have been incorporated in the computer model but 
have not yet been tested and verified. Second, a nitrogen pressuriza- 
tion system extinguishes the fire and can be used to evaluate its per- 
formance in an actual fire situation. Ten seconds after energizing the 
nitrogen system, the pressure in the vessel rises to two atmospheres 
and extinguishes the fire by reducing the partial pressure of ojqrgen to 
less than 10.5 percent. Third, there are two ventilation fans which 
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can be installed to simulate the effects of internal ventilation. The 
ventilation system has been included in the computer model and is 
the subject of verification in Chapter 4 of this thesis. 

D. FEATURES OF THE PROGRAM 

The computer model was developed as a low-cost alternative to 
predict the spread of fire and smoke in enclosed spaces on naval ves- 
sels. Together with the FIRE-1 test facility, which can be used for 
validation of the computer code, it can be used to evaluate the effec- 
tiveness of damage control systems and new ship designs in the pre- 
vention and control of fires. 

The computer model is a joint effort of the University of Notre 
Dame and the Naval Postgraduate School. The original work by Nies 
[Ref. 29] involved a model of a rectangular volume similar to FIF^-1. 
The model was a three-dimensional, finite difference model employ- 
ing primitive variables. It included a global pressure correction, sur- 
face radiation, turbulence, and simple conduction at the walls. The 
unreliability of the burn rate data from FIRE-1 experiments caused a 
problem in validation of the computer model. To overcome this 
problem, a scheme for developing the burn rate based on the experi- 
mental pressure was developed; the procedure is describe by Nies 
[Ref. 29:pp. 61-63]. 

Raycraft [Ref. 30] developed a more sophisticated model which 
uses a spherical/cylindrical coordinate system to more accurately 
model FIRE-1. It also includes a more detailed formulation of surface 
radiation, global pressure correction, turbulence, and conduction. The 



problem with burn rate data persisted, and three trials were run to 
attempt to better simulate the burn rate. The conclusions were: 

1. The pressure tracking case, Trial 1, provided a numerically gen- 
erated heat release curve from other available sources. The pres- 
sure was forced to follow the experimental curve, causing large 
oscillations in the heat release and temperature data. 

2. Trial 2 used a third-order polynomial fit of the experimental data 
provided by NRL. The pressure and temperature did not oscillate 
greatly, but the values obtained were very high. This indicated 
that experimental burn rate data was also too high. It was known 
at the onset that the heat release rate data could be off by some 
unknown scaling factor. 

3. Of the three test cases examined. Trial 3 was a better repre- 
sentation of the fire in FlRE-1. This case combined the heat 
release rate levels obtained from Trial 1 with the third-order 
polynomial fit variation from Trial 2. The results were a realistic 
bum rate curve to use as input into the computer code. [Ref. 30] 

The present code includes internal forced ventilation into the 
model. The effects of two fans blowing into the end caps of the vessel 
is investigated in this thesis using the burn rate curve discussed above 
in Conclusion 3. The results are compared with existing data of the 
fire model without ventilation. 



E. THESIS OUTLINE 

This thesis describes the numerical model, its derivation, and 
application. In Chapter 2, the governing equations, initial and bound- 
ary conditions, and the various submodels employed are discussed. 
Chapter 3 presents the derivation of the finite difference equations. 
The use of the control volume method in the spherical/cylindrical 
geometry is explained. The conservation equations are presented and 
integrated, finite difference equations are developed, and the pressure 
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correction procedures are described. Chapter 4 presents the experi- 
mental data for the internal ventilation model and compares it with 
the nonventilated case. The conclusions and recommendations for 
future work are presented in Chapter 5. The appendix contains the 
code for the model. 
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II. NUMERICAL MODEL 



A. GOVERNING EQUATIONS 

1. Introduction 

The governing differential equations used in the computer 
model are described in this section. They are initially presented for a 
Cartesian system and then transformed into a generalized curvilinear 
coordinate system using standard tensor notation. Several assump- 
tions are made in the development of the governing equations. The 
fire is modeled as an unsteady volumetric heat source that is a third 
order pol}momial in time, which resulted from previous work [Ref. 30]. 
The effects of combustion have not yet been incorporated into the 
code. Density varies in accordance with the perfect gas law. 

Nies [Ref. 29] developed a computer code to model a fire in 
FIRE-1 using Cartesian coordinates as an initial approximation. Ray- 
craft [Ref. 30] describes the code for the current spherical/ cylindrical 
geometry which is summarized below. 

2. General Equations 

The governing equations include: conservation of mass (con- 
tinuity), conservation of momentum, conservation of energy, and the 
equations of state. These are presented below in Cartesian coordi- 
nates and in standard tensor notations. The continuity equation is: 

P-t+(pUi)M=0 (2.1) 
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The momentum equation is given as: 



(pu,).,+ (puUj).j=-P.,-pG, + (o,.).j 



( 2 . 2 ) 



and the energy equation is: 



(pCp„, T) (pu T) .,= ( kT,j) .,+ go + Pu , , 



(2.3) 



The stress tensor is given as: 



Peff (^l.J ^j.i 3^ij^k.k) 



(2.4) 



with 5jj being the Kronecker delta, which equals the value of 1 when 
i = j and equals the value of 0 when i j. The dissipation function is: 






(2.5) 



The equations of state are given as: 



P= pRT 



( 2 . 6 ) 



^=Cp4T-Tp) 



(2.7) 



Since the computer model of FIRE-1 is in a combination of spherical 
and cylindrical coordinates, these equations must be transformed into 
a general curvilinear coordinate system (0i, 02, 03). Yang, et. al. (Ref. 
20] outlines this process, using the rules established by Eringen [Ref. 
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31). The generalized orthogonal coordinates are transformed as 
follows: 



X ,-^0 



(2.8) 



with a scale factor, hj, for curvilinear coordinates given as: 



h, = V8.- J 



/"9XA 



/^axA 

96* ; 



(2.9) 



The scale factor is a component, therefore the summation rule does 
not apply to the subscript of hi. Reference 31 gives the scale factors 
in cylindrical coordinates as: 

^ 1 =^ = ^ ( 2 . 10 ) 




In spherical coordinates, the scale factors are: 

h j = r sin 0=0^ sin 6^ 

^2= 1 
h3=r=0" 



( 2 . 11 ) 

( 2 . 12 ) 

(2.13) 

(2.14) 

(2.15) 



16 



The covariant and contravariant metric tensors of orthogonal 
coordinates are given as: 



gij = Ir ij = 5y hjhj 



(2.16) 



ij 

g = 



h.hj 



(2.17) 



The vector tangent to the Ui curve at P is given as: 



u. = 



g u 

&1J 



(J) 



and the velocity vector is given as: 



(2.18) 



u = 



u 



(1) 



(2.19) 



In generalized orthogonal coordinates [Ref. 20], the continu- 
ity equation is: 






(2.20) 



and the energy equation becomes: 



yg 36' h, ) 



_L ^ 

Vg ae’ 



Vg — TT- 



( 2 . 21 ) 
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with the momentum equation given as: 



" Vg 



u'u^ ^ 



h 



j y 



^ . PG' . 



1 _d_ 

Vs 30^ 



V h, , 



3h 



h 






' J 30' 



(2.22) 



3h 



hih. 00 



r ( puV' - cy'j) 



The stress tensor is: 



<t’.= |X 



ctr 



:n J- (Ui) + i?j. _5_ ( ul) 
30 ‘ h^ ^h,J 



h.hj 30 ™ 



(2.23) 



(Vg 



XT 

h, 



and the dissipation function is: 



0 = 2 




5. + 






2 

3 




(2.24) 



The only difference between these equations and the cartesian coor- 
dinate equations is the additional terms in the momentum equation 
for Coriolis and centrifugal forces. In the energy equation, several 
terms have been lumped together in the source term: 
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(2.25) 



Sf = |i O + 




J_ 

ae‘ 




+ s 



hs 



The heat source term, Shs. is nonzero only in the fire, since gas radia- 
tion effects have yet to be incorporated into the computer model. 
Furthermore, since the present study deals with turbulent flow, the 
conductivity, keff, and dynamic viscosity, Peff. are the effective quanti- 
ties which include both the laminar and turbulent contributions. 



B. INITIAL AND BOUNDARY CONDITIONS 

In order to solve the governing equations, both initial and bound- 
ary conditions must be applied to the model. 

1. Initial Conditions 

The initial conditions of the model are the same as the 
conditions immediately prior to the ignition of the fire in FIRE-1. 
The air within the vessel is assumed to be totally at rest, so the entire 
velocity field is set equal to zero. The forced ventilation does not 
begin until the fire starts, so that the velocity field due to the forced 
ventilation builds as the fire starts to burn. The temperature of the 
field is uniform and equal to the ambient temperature, which corre- 
sponds to a nondimensional temperature of 1.0. Pressure and density 
distributions are due to the static equilibrium distribution inside the 
tank. 

2. Boundary Conditions 

The pressure vessel forms a solid wall around the entire area, 
so all velocities on the wall are zero; this satisfies the no-slip condi- 
tion. Since there is no mass flux through the wall, all velocities 
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normal to the wall are set equal to zero. Temperatures on the inside 
of the wall are equal to the temperature of the fluid immediately adja- 
cent to the wall eliminating temperature discontinuities. The follow- 
ing equations describe these boundary conditions. 

ui = 0 (2.26) 

Tsurf — Tfiuid (2.27) 



Continuity of heat flux must be met at the walls. 

a -k ^ = -k ^ 

f dn ® dn (2.28) 

with n representing the normal direction towards the center of the 
vessel and qr representing the thermal radiation energy. There is 
heat conduction through the walls and heat convection from the exte- 
rior walls to the environment at the ambient temperature. 

Due to the cylindrical and spherical geometry, there is a sin- 
gularity at a radius of zero which requires special treatment. Several 
different methods of correcting this problem are discussed by Yang, et 
al. [Ref. 20:pp. 167-168). The method chosen for this model involves 
applying continuity to two consecutive radial control volumes placed in 
the vicinity of radius equal to zero. Of all the methods investigated, 
this was found to give the best representation of the flow and 
temperature flow fields. 
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The boundary conditions for the control volumes adjacent to 
the ventilation control volumes are discussed in Chapter 3. 



C. PHYSICAL MODELS 
1. Turbulence Model 

An algebraic model is used to predict the average values of 
the dependent variables. More complicated models could be used, but 
the increase in computing time does not warrant their use. Nee and 
Liu [Ref. 32] developed a model that obtains the effective viscosity, peff. 
in recirculating buoyant flows with large variations in turbulence levels. 
The equation, after being transformed to the generalized orthogonal 
coordinate system, is: 




+ 





•’j ae' J 



(i - s') 



+ 



Ri 

Pr. 



(2.29) 



where Prt is the turbulent Prandtl Number and the Richardson Num- 
ber, Ri, is given as: 




with n a unit vector in the direction opposite to gravity and 1/H the 
nondimensional mixing length parameter: 
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H 





_ ^ 

J 80^ 



1 N 



a^u‘ 



j 80 80 



(2.31) 



where K is an adjustable constant. The effective conductivity is 
defined by the following equation; 



11 

cfr - pr Pr^ [lo 



(2.32) 



2. Conduction Model 

As the fire progresses, the heat energy transferred to the 
environment becomes increasingly important. This requires a model 
for the heat conduction through the vessel walls. The energy transfer 
is treated as unsteady, one-dimensional heat conduction through the 
wall and convection with a constant heat transfer coefficient at the 
wall exterior. The energy equation in this case is: 

(p.Cp.T),= -L^ (Vi" k.T.jg*) + s 

vS 00 (2.33) 

with ps Cps being the heat capacitance of the wall and ks being the 
conductivity of the wall. 

3. Radiation Model 

The radiation model is described in detail by Raycraft [Ref. 
30:pp. 22-44] but is summarized below. The radiation model used is 
based on three assumptions. First, the model only considers surface 
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radiation; this means that the gas and smoke inside the tank is con- 
sidered to be transparent. Second, all surfaces are modeled as grey 
surfaces, with radiation diffusely distributed. Third, the tank walls and 
the flame of the fire are treated as surfaces. The radiation model is 
based on the net radiosity model discussed by Sparrow and Cess [Ref. 
33]. The net rate of heat loss per unit area is given as: 




(2.34) 



with the following definitions: 



G 



ij 



1- e, 









(2.35) 






-1 



(2.36) 



X 



- (1 - e.) F 
e; 



Ai-AJ 



(2.37) 



Fai-aj is the view factor for the radiation emitted by the surface i and 
incident upon surface j. Generally, it is given as 



F'A1-Aj= — 



1_ 

A, 



cosP, cosPj dA, dAj. 



71 r 



(2.38) 



The view factor calculations are given in detail by Raycraft [Ref. 30:pp. 
29 through 44]. 
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4. Internal Ventilation Model 



The internal ventilation model allows the user to set up 
forced internal ventilation in the field. This would normally represent 
outlets of the ship’s ventilation system, but could also model ventila- 
tion due to damage (i.e., ruptured air lines or ventilation ducts) or 
damage control smoke removal equipment. The internal ventilation 
model defines a velocity in one or more control volumes. 
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III. FINITE DIFFERENCE EQUATIONS AND CALCULATIONS 



A. INTRODUCTION 

The numerical solution for the computer model has space and 
time as the independent variables, and velocity (in three directions), 
pressure, temperature, and density as the dependent variables. With 
six unknown dependent variables, six equations are needed to obtain a 
solution. The conservation of mass equation (Eqn. 2.20), conservation 
of energy equation (Eqn. 2.21), conservation of momentum equations 
(Eqn. 2.22), and the equation of state (Eqn. 2.6) are used. These 
equations are discretized in a method similar to that described by 
Doria [Ref. 34], based on the general discretization concept presented 
by Patankar [Ref. 35]. Doria divided the domain into separate control 
volumes and wrote conservation equations for each cell in an integral 
form. These integral equations became a set of finite difference equa- 
tions which could be solved to provide a solution. 

In the flow field, each cell is treated as a unit, with one value of 
each property reigning throughout the cell. The center of the cell 
determines the value of temperature, pressure and density. The 
velocity grids are staggered one-half cell away from the center. 
Patankar [Ref. 35:pp. 115-120] describes two problems which arise 
when the velocity cells are coincident with the basic cells. First, the 
velocity at the staggered cell center Is calculated as a function of the 
pressure differential between the two adjacent nonstaggered cells. If 
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the cells were not staggered, the velocity would be calculated based on 
the pressures of adjacent cells, which are twice as far away as in the 
staggered cell case. Second, staggered cells preclude unrealistic 
oscillating solutions. 

Employment of primitive variables presents a problem with the 
coupling of the pressure term in different equations. Others have used 
the stream function to eliminate this coupling [Refs. 14-19] but in the 
present case, with the desire to determine the pressure, this method 
is inappropriate for the reasons cited in Chapter 1. In the computer 
code, an iterative procedure is used to estimate pressure. To ensure 
that the results are physically realistic, a numerical method must not 
violate the conservation properties. Patankar [Ref. 35:pp, 120-126] 
and Doria [Ref. 34:pp. 26-32] describe the method of satisfying 
conservation by correcting the estimated pressure to ensure that mass 
is conserved at every cell. In addition to the local pressure correction, 
a global pressure correction is included to account for the total energy 
change in the system, as described by Nicolette, et al. [Ref. 4]. 

In the finite difference method, differential elements are replaced 
by finite quantities in the integral form of the equations. Many 
methodologies have been developed for dealing with the differencing 
techniques and each has inherent features and problems. The QUICK 
methodology (Quadratic Upstream Interpolation for Convective Kine- 
matics) developed by Leonard [Ref. 36] is used here for the convective 
terms. QUICK uses locally two-dimensional quadratic interpolation 
functions for estimating control volume face values and gradients of 
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transported variables. It is third-order accurate and permits practical 
grid sizes. Yang [Ref. 13] employed QUICK in the coupled momentum, 
energy, and pressure equation solutions for three-dimensional flow in 
tilted rectangular enclosures. 

B. CONTROL VOLUME 

When defining the problem to be solved numerically, the flow 
field is divided up into finite elements, or cells that together make up 
the entire field. At the center of each cell is a grid point that is 
defined as the governing point of the cell. In discussing the grid 
points, the following nomenclature is used. The grid of interest is 
called P (I, J, K), with adjacent grids being defined as: East (I+l, J, 
K), West (I-l, J, K), North (I, J+1, K), South (I, J-1, K), Front (I, J. 
K+1), and Back (I, J, K-1). The boundaries of the cell with grid point 
P are designated by lower case letters, or e, w, n, s, f, and b. Figures 
3.1 and 3.2 shows typical cells in cylindrical and spherical coordinate 
systems. 

As previously discussed, velocities are defined in a staggered grid 
system. To illustrate this. Figure 3.3 shows a two-dimensional cell; 
Figure 3.4 shows the location of the staggered velocities around the 
grid. The velocity, u^,, for the basic cell is located on the west face; 

is on the south face; and u^ (not shown) is on the back face. In all 
cases, the staggered cell system is offset one-half cell from the pri- 
mary cell system. 
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Figure 3-1. Basic Cylindrical Cell 
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Figure 3-2. Basic Spherical Cell 




Figure 3-3. Two-Dimensional Basic Cell 




Figure 3-4. Two-Dimensional Staggered Cell 
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C. INTEGRATION OF CONSERVATION EQUATIONS 

To discretize the conservation equations, it is first necessary to 
put them into an integral form by integrating over the volume of a cell. 
The continuity equation becomes; 

J |^hjh2h3de' d0^ d0% 



+ -^(pu^h, h,) d0'd0^d0^ = O 

^03 1 2 / 



(3.1) 



and the energy equation is; 



^ at" 



J[^(PCp»“‘Th, h3) + 



^(pc_ u’Th,h 3 ) + ^(pC,„ u=Th,h,) 



de‘ de’ de'’ 



J 



^(q-h3h3).^(q^h.h3).^(q=h.h,) 



d0' d0^ d0 + 



/ Shj h^ h3d0' d0^ d0^ 



(3.2) 



with; 



q‘ = 



k 9T 

h, 90' 



(3.3) 
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The momentum equations are: 



(p u') h, h, h, de‘ de" de’ + J 



hj hg 



V 



p u u 



de' de"" de^ 



f 


^ hjhghg>| 


J 36 ’ 1 


h, J 




J ae 




r hi hg hg 



de' de"" de% /p g, h, hg de' de"" de^ 



r a r ij h,hghg^ , 



h.h, ; 



2 ,^3 



de de de 



h.hj 



r J 1 \ 

- ( p u' u - a ) 



L ae 



de‘ de"" de"" 



h.hghg 

h^h, 



ah 



ae 



flpu^u^-o") 



de^de'^de'' ( 3 . 4 ) 



D. CONTINUITY EQUATION 

Once the governing equations have been integrated, the differen- 
tial elements are replaced with finite quantities. Three separate 
differencing methods are used in the computer model: forward dif- 

ferencing for time, central differencing for the diffusion terms, and 
QUICK for the convection terms. 

In forward differencing, the future value of a given parameter is 
found by adding its present value to the net change over a finite time. 
This change is described by the rate of change (slope) multiplied by 
the time step. For example. 
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p" = p" * + m At 



(3.5) 



\vith p^'i representing the present value of density, m is the rate of 
change, p^ is the future value, and At is the time step. Substituting 
this into the continuity equation (3.1) results in: 

dV = — h, h, h, AG AG AG = 7-7 AV (3.6) 

at At * 2 ^ At 

By evaluating the integral, the continuity equation becomes: 

( p" - p"'^ ) +[p u' h.^ hg dG^ dG^] - [p u^ hg hg dG^ dG^] 



+ [p u^ h hg dG^G^I - [p u^ hj hg dG* dGn + (3.7) 

^ -*n ^ “^s 



+ [p u^ hj hg dG* dG^] - [p u^ hj h^ dG' dG'^] = 0 

f b 



The mass flux rate. G, is evaluated at each of the six cell faces: 



G, = (p u' ), = u*. 



(p,(h,Ae‘),.,+p,(h,A9‘),) 
((h. A9‘)„. + (h,A9‘),) 



(3.8) 



Gw = (p = 



(p,(h,AGM._,+Pw (h,A9M,) 

((hj AGM,_i+(hj AGM.) 



(3.9) 



Gn= (P uMn =U^ 



(Pplh, AeM,.,-^P„ (h,AeM,) 
((h,Ae^)j., + (h,A6“),) 



(3.10) 
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Gs= (p )s = Us 



(pp(h, A9^)j_, + p^ (h, 

((h,Ae^)^_, + (h,A9^)j) 



(3.11) 



Gf = (p )f = Uf 



(Pp(h3A9^),„.fp,(h3 A6MJ 
((h3 A0M^.,+( h3 A9=) J 



(3.12) 



Gk = (p u^ )b = ^l 



(p,thsA6M,„-iPBih3A9'’)J 
((h3A9’)B„ + (h3 A9=) J 



(3.13) 



With the area of the faces given as: 



A,^=(h, A6"h, A0^) 



(3.14) 



A„., = (h, A 0 ’h 3 A 0 ")„. 



(3.15) 



A,^,= (hj A0’h2A0")f.i 



(3.16) 



In the finite difference format, the continuity equation becomes: 



(p" - p"-') AV 
At 



+ G^-G^ + Gn-Gs+Gf-Gg=S 



mp 



(3.17) 



with Smp defined as the mass source term. In an analytical solution, 
this mass source term is zero, but in numerical solutions it is a finite 
nonzero term. Through iteration, the numerical solution converges 
and the mass source term approaches zero. Instead of converging to 
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zero, the source term is set equal to zero when it is less than or equal 
to lO'^O. 



E. ENERGY EQUATION 

The integrated energy equation is: 

[( p Cp„ T)" - ( p Cp„ (Cp„T ), A,-Gw (Cp„,T)w A..+ 



G„ (C„„T)„ A„ -G, 

n ' pm ' n n j 



(C T) 

' pm ' ; 



A3 + G,(Cp„T),A,-G,(Cp„T) 



A.= 



= K Ae 



9T ^ 



k„, A,, 



3T 

. h, ae' 



+ k„ An 



dT \ 

K 50' J 



-ks As 



9T >> 

h, 30^ J " 



kf Af 



3T 



h3ae 



+ \ 



_JT_\ 

ha 50' J 



+ Sf AV 



(3.18) 



where all k’s represent effective values. Sf is the source term and 
includes dissipation, radiation, pressure work, and all internal heat 
sources. J is the total heat flux resulting from convection and 
conduction. 



J 



J 



1 

c.w 



2 

n.s 



( P Cprn U* T) 



(pCpn, U^T) 



^eff 



'eff 



dT - 
hj 30 

3T ~ 
ha 50 ' . 



(3.19) 



(3.20) 
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f.b 



(3.21) 



These equations are the 0i, and G^ components of the total heat 
flux. The subscripts refer to the face to which they correspond. The 
term (p Cpm u^ T) causes problems since u is evaluated at the cell sur- 
face, but all other values are evaluated at the cell center. Because of 
this, when using these equations, the fluxes must be expressed in 
terms of Cpm. p. and T at the point P and its neighbors. Substituting 
these equations into the integrated energy equation, the finite differ- 
ence energy equation is; 



Of the many finite differencing methods, the QUICK scheme is 
used with the convective terms because it accurately predicts the 



properties. QUICK has the relative accuracy of the central differenc- 
ing scheme coupled with the stability of an upwind scheme. It uses a 
parabolic polynomial interpolation to fit the control volume at three 
adjacent nodes. Yang [Ref.l3:pp. 77-89] describes QUICK in one, two, 
and three dimensions. Raycraft [Ref. 30:pp. 63-74] developed the 
finite difference energy equations using the QUICK scheme. Since 



[(pCp^T)” -(pCp^T)""’] ^+jIa,-jIa^ + 



+ jIa„-jIa^ + AV 



( 3 . 22 ) 



dependent variable values at the control volume surfaces with stable 
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this method is used in the computer model, the derivation is repeated 
here. 

The quadratic interpolation for a nonuniform grid is given as: 



(pC,„ 




G C 

c ^ pm .c 



[(^) 



- ^ CURV, 



(3.23) 



(P ^pm ^pm.w 

w 






- CURV^ 



(3.24) 



Figure 3.5 shows the one-dimensional scheme. The upstream 
weighted curvature terms CURV are: 



CURV 





-T ^ 

p w 



if G, > 0 



AX: 



AX. 



i+l 



fT -T 

EE E 

AX„ 




if G, < 0 



(3.25) 



CURV 



Ax: 

AX 



i+l 



fT -T 

' p W 

AX.„ 



T - T 

w w\v 

AX_ 



if G„> 0 



AX 



fT -T 

^ E P 

AX, 



T -T ^ 

^ p w 

AX„, 



if G^y < 0 



(3.26) 
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Figure 3-5. One-Dimensional Quadratic Interpolation Scheme 
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with 



AX, = 0.5 (AX, + AXj^j) 

AXw = 0.5 (AX, + AX,_,) 

AXec =0.5(AX,^j + AX,^J (3.27) 

AX,^ =0.5(AX,_, + AX,_J 

In generalized orthogonal coordinates, the equations becomes: 

(pCp„u'T)^ = G.C,„.( ^'’g^'= -rcURVN,) (3.28) 

(pCp„u“T)^= G,Cp„ , P'’^'^'' -■|.CURVN,) (3.29) 



with 



CURVN, 



(h, Ae* )\ f T^-T^ 
(h, Ae'), [(h,A0'), 



Tp-T^ A 

(h, A0')„ J 



if Ge > 0 



(h, A0‘)^ T,, - T, _ T,-Tp > 

(h, A0*),^, ((h,A0')ee (h,A0*),^ 



(3.30) 



CURVN^ 



(h, A0^ )l r Tp-T^ 
(h,A0'),^, [(h,A0*)„ 



^ww 

(h, A0’)^^ 



if G w > 0 
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(h^ A0')l r T^-Tp Tp-T^ ^ 



(h, A0 ), 



(hj A0'), (hj A&) 



ifGw<0 (3.31) 



and 



(hj A0') =0.5 r(h,A0') +(hjA0’) 1 

c L ^ ^ i ^ i+1 J 

(h,A6')^=0.5 [(h,Ae')_+(h.A9')^_J 

(hj A0‘) =O.5r(hjA0') + (hjA0') 1 (3.32) 

ec L ^ ^1+1 ^ 1+2 J 

(hj A0') =O.5r(h.A0') + (hjA0') 1 

WW L 1-1 1-2 J 

Tlie conventional finite difference form of Eqn. 3.22 for a one- 
dimension system is: 



[(pCp„T)"-(pCp„T)”'^] h, 



AV 

At 



= A^T^ + A„T„-A,T,+ S(h, Ae‘) 



(3.33) 



Using a semi-implicit tri-diagonal solution procedure, both Tee and 
T\v\v are included in the source term. The remaining coefficients are: 



Ae = 



Cp„>..(-7G,+3lG,|) 



16 



+ ^(- G^ + |G^|) + - (3.34) 



h,A0' 



A = + 3 |G^|) rG + IG h I 

A\v 0 ■*’ ^pm-eC^e"*" l^e|) 



(3.35) 
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S, = Sh, A0‘ -C,„,(|G.|-G,)T^- Cp„,„(|G.|+G„)T„^ (3.37) 



The three-dimensional QUICK algorithm uses locally quadratic 
interpolation of temperature through each control volume. Figure 3.6 
shows the calculation cell for a three-dimensional uniform rectangular 
grid. The cylindrical/spherical grid system used in the computer 
model is more complex, although conceptually the same. Yang [Ref. 
13] discusses the evaluation of the curvilinear and temperature terms. 
Basically, curvature terms are calculated for each of the temperatures 
and substituted for the convective heat flux terms. Heat flux is calcu- 
lated and substituted into Eqn. 3.22. 

After separation of variables, the energy equation becomes: 



[a? + (p C pm .p) 





(3.38) 




with the additional source term. 




NNR 



(3.39) 
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Figure 3-6. Calculation Cell for a Uniform Rectangular Grid 
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CN = G„*u5.,*(h3A0’) (h,Ae‘) 

n n 

CS = G.*u^ • (h3A0")^ (h,A0‘)_ 
CE=G,'u;.. •(h 3 A 0 =)^ (h^Ae^)^ 
CW =G„*u‘, • (h3A0") (h,A0") 

CF =G,*<., • (h.A0')^ (h^Ae')^ 
CB =G3*< • (h,A0‘) (h^Ae") 

b b 

Thermal conductivity is: 



1 


1 1 


k/(h, 


V'(h,A0O^,, 


(h^ A0O 


+ (h3AeO 

j j+1 




1 


1 


1 1 


k/ (h^ AG")^ 


k,-.*(h3 Ae")^^ 


(h. A#) 


^.(h3A0O^, 




1 


1 


1 


k, *(h, A0')_ 


k,„ *(h.A0') 

1+1 



(h. Ae‘) + (hj A9^) 

1 1+1 



(3.40) 



(3.41) 
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1 



1 


, 1 


k, * (hj A0*)^ 


k,-.'(h, A9') _ 


(h,A6‘) 


1 + ( h A 0^ ) 

1 1-1 




1 


1 


+ 1 


kw'Cha 

k 


kk.,*(h3 A9“) 

k+1 


(hg A0^) 


1 +(hgA0^) 

k ^ ^ k+1 




1 


1 


+ 1 


ku* (hg A0") 

k 


K-i*(k Ae^) 

k“l 



(h3 A9'’) +(h3A9‘’) 

k k-1 



CONDNl = k„ 



A6^ * hj A6* ^ 



CONDSl = k. 



hg AQ^ * hj AG* ^ 

h,A0^ 



CONDEl = ke 



hg AQ^ * ha A9^ ^ 

h, A0* 



CONDW 1 = kw 



^hg AQ^ * hg A0^ ^ 

. h, A0^ ; 



(3.42) 
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CONDFl = kf * 



fh, Ae* * ^ 

h3 Ae" 



CONDB 1 = * 

b 



h, A0‘ * AG"" ^ 

hsAG" 



In equations (3.41) and (3.42), all k*s are the effective values. 



CEM = 



CWM = 



CNM = 



ICEi + CE 


(h, Ae')^ 


16 


(h, A0')_ 


0 

w 

1 

o 


(h. A0‘)^ 


16 


(h,A0')^_ 


lcw| + cw 


(h. Ae‘). 


" 16 


(h, A0')^^ 


1 av 1 - CW 


(h. Ae'). 


16 


(h, A0')^ 


|cn| + CN 


(h, A0^)^ 


16 


S5 

> 

CD 

K3 


[ 

0 

1 

o 


(h, A0?)_^ 


16 


(h,A0") 

J+1 



(3.43) 
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CSP = 



CSM = 



CFP = 



CFM = 



CBP = 



CBM = 



T 

^EE 



1 CS 1 + cs 


(h, A9’) 

s 


16 


(h, Ae’) 




j-1 


|cs| - cs 


(h,A6?)_ 


16 


(h, Ae’) 

j 


|cf| + cf 


(h^Ae’)^ 


16 


(hs Ae’) 

k 


ICF 1 - CF 


(hsAe’)^ 


16 


(hsAe’) 

k+1 


|CB| +CB 


(hs Ae’) 

b 


16 


Ae’) 

k-1 


ICBi +CB 


(ha Ae’) 

b 


16 


(ha Ae’) 

k 


-CEM * 


(h, A6')^ 




Ae') 
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- CWP * 


(h, Ae') 
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WW 



(h, Ae') 



46 






-CNM * (h^ A0^) 



(ha 


A0^; 


) 

nn 


-CSP * 


(ha 


) 

' S 


to 


Ae" 


) 

ss 


-CFM * 


(hg 


A9^) 






' f 






-CBP * (hg Ae"") 





( 


Ih3 A6'‘) 


bb 


A 

EER 


- 

^EE 


* * 

1+2 


^P*" 1.2 


A 


- a'" 

ww 


* 'X' * 

^ 1-2 


^P*" 1-2 


A 

NNR 


= aL 


♦ * 

J+2 


^P'" J.2 


A 

SSR 


= aL 


* 'T' * 

J-2 


^pm J-2 


A 

^FFR 




♦ 'T' ♦ 

^ k+2 


^P'"k.2 


A 

^BBR 


= A^ 


★ 'Y' * 

^ k-2 


^P™ k-2 



( 3 . 44 ) 



( 3 . 45 ) 



The intermediate coefficients are : 
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Ap, = -0.5 * CE + CEP + CEM 

£1 




+ CWM 



(h. Ae’)'^ 
(h, Ae') 

C 



= 0.5 * CW + CWM + CWP 



(h, Ae’) 

' " (h. A9') 



+ CEP 




A^, = - 0.5 * CN + CNP + CNM 



(h,A#) 

'"(h,A6“) 



+ CSM 



(h, A9^) 
(h, Ae”) 



Ag, = 0.5 * CS + CSM + CSP 



1 + 



(h, Ae”) 
(h, Ae”) 



+ CNP 



(h, Ae”) 
(h. Ae”) 



(3.46) 



(3.47) 



(3.48) 



(3.49) 
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(3.50) 



Ap, = -0.5 * CF + CFP + CFM 



1 + 



(h3A#)__ 



+ 



+ CBM 



(hjAeO^ 

(V^ 



A„, = 0.5 * CB + CBM + CBP 

J31 



(ha Ae=) ■ 

1 + — 

(ha A6=) 

tb _ 



+ 



+ CFP 



(ha Ae?)^ 

ovA^r 

b 



The coefficients are; 

Ap = Ap, * C_ p + CONDE 1 
A?„ = A^ * C ^ + CONDW 1 

W WI pm .W 

a”^^ = A^ ,* C „ + CONDNl 

N NI pm .N 

a; = A3. *C^„.3+ CONDSl 
a; = Ap,*C^„,+ CONDFl 
a; =A3. + CONDBl 



Ap’T is the sum of all the values of A. 



(3.51) 



(3.52) 
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= c ♦ 

pm P 



( Ag + + Ag + Ap + Ag + Agj. + A^ + 



+ AjJ,^ +A^ + aJj. +A 33 ) + CONDEl + CONDWl + (3.53) 

+ CONDN2 + CONDS 1 + CONDF 1 + CONDB 1 



F. MOMENTUM EQUATION 

The integrated momentum equation is given as: 

(pu‘), V + M,‘‘ A,-M*J A„ + M„*" A„-M* 3 " A 3 + 

.3 .3 , (3.54) 

+ m;^ A,-M*3^A3 = S’ 

with Aj. the area of the staggered cell given by Eqns. 3.14 through 
3.16. My represents the total momentum flux in the 0y direction due 
to convection and diffusion for the u^ velocity component. M is evalu- 
ated at the face noted and is given by: 

= ( p u‘ u^ - oj ) ( 3 . 55 ) 

The source term includes body force, pressure gradient, centrifugal, 
and Coriolis forces and for u^ is : 

s‘ = -p. A, + P„A„+ pG’aV - Mp (A„-A.)- 

13 22 33 (3.56) 

-Mp (Af-A^) + (Mp + Mp ) (A, -A„) 

Yang et al. [Ref. 20: pp. 11-13] describes the concept of a “stress- 
flex formulation” as it applies to a curvilinear coordinate system. 
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Stresses are calculated from previous information and the source is 
given in the current iteration. The momentum flux is: 



m‘^ = m'\ ( - (T*, ) 

with 




M = p u u^ - 6, 

The u^ momentum equation becomes: 

All All A 12 A 12 

(pu)j+ M, A,- A^+ M„ A„ - M3 A3 + 

A 13 A 13 A 

+ M, A, - A, = S 

S = S- A.+ (e‘,-o',)^A„- 

- A„+ (e”-o 0 A.- 

n s 

- A^, 

f b 

The momentum equation for 0i is given as: 



( 3 . 57 ) 



( 3 . 58 ) 



( 3 . 59 ) 



( 3 . 60 ) 



( 3 . 61 ) 
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n-1 AV , 1 

Ap+P ^)u. 



Ae ui + Aw Uw + 



+ a: +A: u‘ +A>; +Alui + 



The intermediate mass flow rates per unit area are; 



G 



nc 




P>i (hj A9")^ + Pj(h, ] 

(h,A0^) +(h,A6^) [ 

J J+1 J 



[ rp.-i,j.i(h2 ^0") +Pi-I (h^Ae") 1] 

c = „2 ! L J tlA [ 

(h,A0^) +(h,A6^) 

I J J+i J 

[k-iCh^AB^) +pj(h, A6“) 1] 

I J J+1 J 

f k-,.,-, (h,Ae") +p,_, (h,A6P) ]] 

j (h,A6^)^l(h,Atf)^_ J 

, f [pm (h,'i6'), + P,(h. A9‘)„] 1 

j (h,A8')^kh,Ae')^ I 

f [p,., (h, A8‘) +p,(h, A8‘) 1 1 
" I (h. A9')^+(h, A8')^ I 

, f [p,-.(h,A8-)^ + p,-(h,Ae')'^] ] 

(h.A8‘) ^(h,A8') t 



(3.62) 



(3.63) 
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f [Pi.. (hsAB’) +p,(h3A9“) 

G = -i — 

'■ (h3A9=) +(h3A9>) 

L k k+1 

[ rP,-..k„(h3A0') +P,_.(h3Ae“) ]1 

p _ ,,3 I _L k k^-1 J \ 

(h3A0=) ^(h3A6’) 

L k k+1 

ffpk-. (h^Ae'^) +p^(h3A9=) ]1 

p _ ,,3 I _L k k-1 J I 

(h3A6“) +(h3A6^) 

L k k-1 J 

f [pw.k-, (hsAe'^) +p„, (h3A6“) 1] 

(h3A6^) +(h3A0=) 

I k k-1 J 



The final mass flow rates for the control volume surfaces are: 



CE = 0.5 (G, + Gp) * (h^ Ae"") *(h3A0^) 
av =0.5 (G_ + G„) *(h2 AG") *(h3A0^) (3.64) 

^ ^ ^ w ^ ' w 



CN = (h, A0‘) (h3A0") 1 

n n 


[G„(h, A0')_+G„„(h,A0')Jl 


[(h, A6')^ + (h, A8‘)J j 


CS= (h,A0‘) (h3A0“) 1 

s s 


[G„(h,A0')_+G.,(h,A9')Jl 


[(h, A0')^+(h, A0')/] j 


CF = (h, A0')^ (h, A0")J 


'[G„(h, A0')^+G3,(h, A0')J1 

1 [(h.A0X.(h,A0')J t 
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CB = (h, Ae') 



b 




[[G^(h,Ae')^+G^(h, A6’; 




1 1 


[(h, Ae')_^+(h.A9')J 


1 



The local viscosity becomes: 



VIS, = VIS 
VIS^ = VIS,., 



(VISj.,+VIS +VIS,_,,^^,+ VIS,.,) 

VIS„ = ^ (3.65) 

(VIS, , + VIS +VIS, , , , + VIS, ,) 

4.0 

(VIS,,, + VIS +VIS,.,.,„+ VIS,.,) 

“ 4.0 

(VIS,., + VIS +VIS,., ,.,+ VIS,.,) 

4. 0 



VISNl = VISn * 



(ha A0 ^)(h,AeO 



ha A0 



VISSI = VIS 3 * 



(ha A9^)(h, A9^) 



ha A9 



VISE! = VIS, * 



(haA9^)(ha A9^) 



h, A9 



(3.66) 
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VISWl = VISw * 



(h, Ae^) (h3 A6^) 

hj AG' 



VISFl = VISf * 



VISBl = VIS^, * 



The coefficients for the momentum equations are: 



(h^AG^) (h, A9^) 
haAG" 

(h^ AG^) (h, AG") 
haAG^ 



A 





a“ 


^EER 




EE 


A 




a“ 






ww 


A 




a” 


^NNR 




NN 


A 




a“ 


SSR 




ss 


A 




aI. 


^FFR 




FF 


A 




> 

C 


^BBR 




BB 



The values of the coefficients A are given as: 



a; = A^ + VISEl 
a; = A^+ VISWl 



(3.67) 
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(3.68) 



a; = A^, + VISNl 

a; = A3, + visa 

Ap = Ap, + VISFl 
A3 = A3, + VISBl 



The value of A^^p is the summation of all of the values of A: 



.u .u ^ u ^ u ^ u ^ u ^ u .u .u 

^EE ^WW + 



+ A“^ + A^ + A^ + A33 



The source term is given as: 

[p(h,Ae')'^.fp.., (h,Ae')J _ 

= [(h,Ae-)^+(h.Ae-)J 

+ (h, as") (hj Ae’) (P,_,-P,)+A^„ +A^+A„„^ + 

J k 

+ A 533 + Appp + A 333 + RE - RW + RN - RS = RF - RB + 

+ RRY + RRZ - RRX - Buoy * {sin [ZC (K) ] * ( p - Pp^) * 

*(h, A0*)^ *cos[XC (I)] 1+ {(P,_i -Peo^ J (h, A0*)^ * 

*cos[XC(I - 1)]} /|^(h, A0’) +(h, A0’) ] AV 



(3.69) 



(3.70) 
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witJi XZ and ZC as tJie center of the basic cell. The additional parame- 
ters are given below. 



RE = (h^ A0^ hg A0^) 

c 

RW = (h, A0^ h,A0^) 
RN = (h, A0* hg A0^) 

n 

RS = (hj A0* hg A0^) 

S 

RF = (hj A0' h^ A0'*)^ 
RB = (hj A0* h^ A0^) 

b 



(h, A9') 

c _ 

-^U) 

(h, A9') 

L w 

-u;)«vis„ 
(h, Ae") 

n 

(hj A6“) 

s , 

°‘>.i -(u‘k.i -u'k) 

(hj A9^)^ 

' c‘°-(u' -U|..,)*V1S/ 

(ha A9T 

b _ 



5'^ = 0,5(0;!,+ a-) 

S'“=0.5(o'(=.,+o'C) 

o^^(h,A9')^ + of_, (h, A9')^ 
(h, A9') + (h, A9') 

w c 



(3.71) 



(3.72) 
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-.33 

a 



(h A9*) (h A6’) 

(h. as') + (h. AG') 

w c 



AUl = u' 



AU2 = 



“j.i(hjA0") +u5(hjA6") 



2 (h, A0") 



(h. A0') 



u.-i.j.i (^2 A0")^ + u=_, (hj A0^) 
2 (h,A 0 ”) 



(h, A0‘) !■ / 



AU3 = 



/[(h,A6‘)^+ (h.A0')J 

■jL.ChsAe') +<(h 3Ae'’) 



2 (h 3 A 0 ") 



(h. A0‘) 



uf-,.u..(h3 A6’)^ + u';..(h3 A0'’) 

2 (h 3 A 0 =) 



(h,A0') / 



/[(h,A0')_+ (h,A0’)J 



AR = 



p(h,A0‘)^+ p,-,(h, A0-) 

(hj AG') + (hj AG') 



ARUl 2 = AR * AUl * AU2 



(3.73) 



58 



ARUl 3 = AR * AUl * AU3 



(3.74) 



ARU22 = AR *AU2 * AU2 
ARU33 = AR *AU3 *AU3 

RRY = (a"-ARU12) ( hg A0^) ^ ( hj AB’ ) -(hjAG') ] 

RRZ = (a'^-ARU13) (h^AG^) |^(h, AG') -(hjAG') ] 

RRX = ( -ARU22 )(h 3 AG^) [(h^AG^) -(h^AG^) ] + 

+ (a^^-ARU33) (h^ Ag") r(h 3 AG^) -(113 AG^) ] 

j L c w J 

The momentum equations in the other two directions can be 
similarly obtained. 

G. PRESSURE CORRECTION 

One difficulty encountered in employing primitive variables is the 
difficulty in calculating pressure. In a closed system, such as FlRE-1, 
there are two causes of changes in pressure. First, there are pressure 
changes throughout the field due to a net energy change in the system. 
To account for these changes, a global pressure correction is applied. 
Second, there are pressure changes locally which determine the 
velocity field. A local pressure correction is included to account for 
these changes. 
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1. Global Pressure Correction 



A global pressure correction follows from the two-dimen- 
sional scheme developed by Nicolette, et al. [Ref. 4]. Overall pressure 
levels are increased or decreased depending upon whether energy is 
added or removed from the system. Since the volume and mass of the 
system are constant, the sum of the local density times the local vol- 
ume will be constant, and equal to the equilibrium mass. Summing 
over all of the cells, 

Sp:(AV), = Sp„,(AV), 

with n indicating any time and EQ indicating equilibrium. 

Assuming a perfect gas, density is a function of pressure and 
temperature only, since volume is constant. The actual values of pres- 
sure and temperature at any time are the sum of an estimated value 
and the global correction. 



P=P‘ + p'g (3.77) 

T=T%T'g (3.78) 

with superscript * indicating the estimated value and superscript ' 
indicating the global correction. By applying these two equations and 
the perfect gas law along with Eqn. 3.76, the global pressure correc- 
tion becomes: 
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(3.79) 




This correction is added to the estimated value from the previous time 
step, and iterated until a globally corrected pressure is obtained which 
conserves mass in every cell. 

2. Local Pressure Correction 

An iterative method involving the mass conservation equation 
is used to find the local pressure. Patankar [Ref. 35:pp. 120-126] and 
Doria [Ref. 34:pp. 26-32] describe the method for determining the 
local pressure correction. Initially, the pressure field is guessed or 
the previous pressure field is assumed. Then velocities are calculated 
based upon this assumed pressure distribution. Knowing the veloci- 
ties, the mass source term, Smp (also called residual mass), is calcu- 
lated for each cell. The magnitude of the mass source term and the 
sum of the absolute values of every cell’s residual mass serves as a 
check on the conservation of mass within each cell and through the 
entire flow field. If Smp is close to zero, the guessed pressure field is 
satisfactory: if not, a local pressure correction is calculated and the 
process is repeated until Smp is within the desired range. Once a sat- 
isfactory pressure field is found, the densities for the next time step 
can be found using the equation of state. 

Similar to the global pressure correction, the actual pressure 
equals a guessed pressure (superscript *) plus the local pressure cor- 
rection (superscript '). 



61 



p = p* + p' 



(3.80) 



The finite difference equation for the pressure correction 
takes on a form similar to the other finite difference conservation 
equations. The equation for P' is: 






+ A3 P 3 - S„,p AV 



(3.81) 



with 



Ae = 



p.*(h,A6"h3Ae‘*)' 
r a“ ^ AV \ 



(3.82) 



Pw * (h2 A0^ hg A0^ ) 



"W 



( 



^u> AV 

Ap + Pw 



) 



(3.83) 



p„* (h, A9‘ h, AB’ )■ 



f .u* AV 

lAp,.,+ Pn-^ 



(3.84) 



A. = 



Ps * (hj A0' hg A0^ ) 

AV \ 

lAp + Ps-^ J 



(3.85) 
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(3.86) 



A 



F 



Pf 




, ag' ag" ) 
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f 




At 



) 



Ab 




AG* AG^ ) 



2 

b 




+ Pi 



AV 

At 



) 



(3.87) 



Ap = Ap, + A^ + A|^ + Ag + Ap + Ag (3.88) 

At the solid boundaries where the mass flux is zero, the coefficient A 
which corresponds to the boundary is equal to zero. When the final 
corrected pressure field has been calculated, new velocities are found 
from the following equations. 

u* = u“ + u*' (3.89) 



u 



2 



u 



2 * 



u 



2 ' 



(3.90) 



u 



3 



+ u 



3 ' 



(3.91) 



with 



u^' = 



(Pp-P^) (h 



3 ag" hg ag") 



Ap + p, 



AV 

At 



(3.92) 
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( 3 . 93 ) 



2 ' 

= 



(Pp-PJ (hj Ae' h3 A9") 



An + P: 



AV 

At 



3 , (Pp-Pb) (h, A9' A9") 

( 3 . 94 ) 

Smp is then computed; if it is within the desired range, the 
calculation is complete. Otherwise a new P^ is calculated and the pro- 
cedure is repeated. 



H. VENTILATION EQUATIONS 

When forced ventilation is introduced, the velocity equation for 
the control volume containing the ventilation becomes: 

ApUp = A,u,+A^u^ + A„u„ + A3U3 + 



+ Af Uf + Aj^Uj^ + Su 



( 3 . 95 ) 



with 



A 



p 



= 10 '“° 



( 3 . 96 ) 



2 0 

Sy = specified velocity * 10 



( 3 . 97 ) 



this causes the velocity in the control volume to be equal to the 
desired values for ventilation, and not be affected by the upwind or 
other adjacent velocities. 
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The boundaries of the control volumes with specified velocity 
require special consideration. The equation for the downwind control 
volume becomes: 

ApUp = A, u, + A^u^ + A„ u„+ A3 u, + 

( 3 . 98 ) 

+ Af Uj + A^ u^ + 

with the starred values defined as: 

^ ( 3 . 99 ) 



S u S u "I" Aj^ u 



( 3 . 100 ) 



This causes the ventilation to be the only effect from the upwind cell 
and represents a fixed velocity internal ventilation system. The equa- 
tions for the adjacent control volumes whose boundaries are parallel to 
the flow must also change. For example, the equation for the control 
volume north of the specified ventilation control volume becomes 

Ap Up = A, u,+A^u„ + A„u„ + A;u3 + 



+ AfUj + Aj^u^ + Su 



( 3 . 101 ) 



with 



S*u = S„+2 u3A3 



( 3 . 102 ) 
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A* 



0.0 



( 3 . 103 ) 



This boundary equation makes the velocity in the entire volume 
constant, rather than varying between the staggered cell center and 
the boundary. 
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IV. EVALUATION OF NUMERICAL DATA 



A. INTRODUCTION 

The computer model presented here was designed to model fires 
in the experimental pressure vessel FIRE-1. The theory of the model 
has been given in previous chapters. This chapter will describe the 
modeling of a fire with internal ventilation in FIRE-1. Although such a 
fire test has yet to be experimentally run, this study will demonstrate 
the feature of internal ventilation in the computer model. This is one 
step to make the model more accurately represent real fires. The 
parameters used in the study will be presented in this chapter and the 
numerical solution process will be summarized. The effects of differ- 
ent time steps in the computation will also be discussed. 

Two trials were conducted, one with internal ventilation and one 
without ventilation. A third trial was conducted using the ventilated 
case, but with different time steps for the iterations. 

Pressure, temperature, and velocity fields are generated from the 
computer code. The temperature and velocity fields for various times 
will be discussed for both the ventilated and nonventilated cases. The 
global pressure and thermocouple temperatures will also be evaluated. 
The thermocouple temperatures correspond to the temperatures 
found at the location of the actual thermocouples in FIRE-1, in the 
north end cap (shown in Figure 4.1). Additionally, the global pressure 
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Figure 4-1, Thermocouple Locations 
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and one thermocouple temperature will be compared for the cases 
with different time steps. 

B. NUMERICAL SOLUTION PARAMETERS 

Various parameters are input into the numerical model in order 
to model a particular fire. These parameters include: initial condi- 

tions, fuel heat release rate, location of the fire, geometry of the 
enclosure, and physical characteristics of the enclosure, including 
heat transfer coefficient and fluid properties inside the enclosure. 
Other items could be added, depending upon the complexity of the 
model: decks, equipment, fire extinguishing systems, and combustion 
parameters. These are planned to be added to this model in the 
future. The location of sensors and the physical description of FIRE-1 
is given in Chapter 1. The ventilation fan locations are shown in Fig- 
ures 4.2 and 4.3. The material properties used in this thesis are listed 
in Table 4.1. 

The numerical model of FIRE-1 uses a cylindrical /spherical coor- 
dinate system shown in Figures 4.2 and 4.3. The grid is spherical in 
the end caps, with 9, R, and (j) directions, and cylindrical in the mid- 
section, with 0, R, and Z directions. There are 14 cells in the R 
direction; one cell represents the tank wall and another is in the 
vicinity of R = 0 and is used to avoid singularity at the origin. Each 
end cap has six 0 cells; again, one cell is used to avoid singularity. The 
mid-section has 18 Z (or ({)) cells and there are 20 cells in the 0 direc- 
tion oriented counterclockwise. Although a finer grid could be used to 
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Figure 4-3. Ventilation Location in Computer Model (Front View) 
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TABLE 4.1 



SPECIFIC MODEL PARAMETERS 



Wall Characteristics 

Material 
Thickness 
Specific Heat 
Thermal Conductivity 
Density 

Fire Characteristics 

Bum rate 

Initial Temperature 
Initial Pressure 
Location 



ASTM 285 Grade C Steel 

3/8 inch 

0.1 Btu/ (Ibm F) 

25 Btu/ (hr ft F) 

487 Ibm/ ft3 



A Given Function of Time 
35.6 C. 

1 .0 Atm 

Center of FIRE-1 
23.1 ft from end 
3.21 ft from bottom 



Ventilation Characteristics 

3.18 ft/ sec 
South to North 
11.1 ft from end 
4.0 ft from bottom 

2. Velocity 3.18 ft/ sec 

Direction North to South 

Location 35.5 ft from end 

13.6 ft from bottom 



1. Velocity 
Direction 
Location 



give more accurate solutions, the limitations of the computer 
resources required that the grid not be enlarged. Table 4.2 presents 
additional information concerning the model parameters. 
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TABLE 4.2 



GENERAL MODEL PARAMETERS 



Grid 



Number of Interior Cells 6,720 

Number of Tank Wall Cells 560 

Number of Wall Radiation Zones 560 

Number of Fire Radiation Zones 1 9 

Cells in the 0 Direction 20 

Cells in the R Direction 1 4 



Cells in the (|) Direction (six in each end cap) 1 2 

Cells in the Z direction (in the mid-section) 18 

Time Step 

Varied 0.0192-0.0288 Sec 

CPU Time (1 CPU hour) 0. 6-0.8 sec fire time 

External Heat Transfer Coefficient 15.0 Btu/ (hr ft^ F) 

C. NUMERICAL SOLUTION PROCESS 

Two separate programs comprise this model: the first is a surface 
radiation preprocessor program which calculates the view factors. 
The main program is similar to that presented by Nies [Ref. 29:pp. 54- 
57] and Raycraft [Ref. 30:pp. 96-97]. The first part of the main pro- 
gram establishes the initial parameters and inputs the view factors. 
Then the effective viscosity is computed in Subroutine CALVIS. Every 
two time steps, the wall radiation flux is recalculated. Temperature, 
pressure and velocity are computed in subroutines using a semi- 
implicit technique which solves the finite difference equations. Sub- 
routine CALT is then called to determine the temperatures, followed 
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by the computation of the pressure and global pressure correction. 
Then the velocities and local pressure corrections are computed; the 
local pressure correction updates the velocities. With the corrected 
velocities, continuity is applied to each cell and the residual mass is 
found. The sum of the absolute value of every cell’s residual mass is 
called the residual mass source. RESORM. The magnitude of RESORM 
indicates whether the pressure corrections are sufficient. If RESORM 
is too large, the program recalculates the velocities and pressures 
until RESORM comes within the desired range. If RESORM is greater 
than 10.0, the program stops because this only happens when there is 
a stability problem. If this occurs, the time step must be reduced and 
the program restarted using data from a previous step. To economize 
computer time, the temperature, global pressure, and density are only 
calculated every third iteration. The iterations continue until: (1) 

RESORM is below the predetermined value, (2) the maximum number 
of iterations has been reached, or (3) the CPU time presently available 
is insufficient to complete another iteration. 

D. VENTILATION RESULTS 

The numerical model was used to evaluate two fire scenarios: one 
included internal ventilation and the other did not. The specific 
parameters of the model were discussed previously. The validity of 
the ventilation model will be evaluated and the numerical results of 
the internal ventilation case will be compared to the nonventilated 
case. 
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A direct comparison can be made by looking at the spatial and 
temporal variations of the velocity and temperature fields. Although 
these fields are three-dimensional, they are presented in a two- 
dimensional form at three representative sections in the tank, shown 
in Figure 4.4. Section A is the mid-section front view, which cuts the 
vessel vertically along the axis (Y-Z plane). Section B is the mid-sec- 
tion end view from the south end, cutting the vessel through the mid- 
dle of the vessel, perpendicular to the axis (X-Y plane). Section C is 
the section view at the base of the end cap from the south end, which 
is also cut perpendicular to the axis but at the intersection of the 
cylindrical and spherical portions of the tank (X-Y plane). The venti- 
lated and nonventilated temperature and pressure fields for the times 
30, 60, 90, 120 and 150 seconds are shown in Figures 4.5 through 
4.35. 

Many observations can be made in analyzing the field plots, but 
only the major phenomena will be discussed here. Raycraft, et al. [Ref. 
38] discuss the results of the nonventilated computer model. In this 
thesis, discussion will be limited to comparisons of the two cases and 
some general comments. Particularly interesting phenomena include 
the flame plume, global velocity field, ventilation effects, temperature 
stratification, and the velocity field in a small region near the base of 
the flame plume during the beginning of the fire. 

As can be seen in Figures 4.5 through 4.8, the flame plume is well 
formed early in the fire in both the nonventilated and ventilated cases 
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Figure 4-4. Location of Cross-Sections Used for Isotherm and 

Velocity Field Plots 
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Figure 4-5. Mid-Section Front Views of Isotherms at 30 Seconds 
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Figure 4-6. Mid-Section Front Views of 
Velocity Field at 30 Seconds 
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Figure 4-7, Mid-Section End Views of Isotherms at 30 Seconds 
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Figure 4-8. Mid-Section End Views of Velocity Field at 30 Seconds 
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Figure 4-9. Section View at Base of End Cap of 
Isotherms at 30 Seconds 
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Figure 4-10. Section View at Base of End Cap of 
Velocity Field at 30 Seconds 
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Figure 4-11. Mid-Section Front View of 
Velocity Field at 40 Seconds 
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Figure 4-12. Mid-Section Front Views of Isotherms at 60 Seconds 
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Figure 4-13. Mid-Section Front Views of 
Velocity Field at 60 Seconds 
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Figure 4-14. Mid-Section End Views of Isotherms at 60 Seconds 
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Figure 4-15. Mid-Section End Views of 
Velocity Field at 60 Seconds 
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Isotherms at 60 Seconds 
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Figure 4-17. Section View at Base of End Cap of 
Velocity Field at 60 Seconds 



89 



oo ooo o 
ooooooooo 

o o & 

o oooo o 

Xi i ii iX 




Figure 4-18. Mid-Section Front Views of Isotherms at 90 Seconds 
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Figure 4-19. Mid-Section Front Views of 
Velocity Field at 90 Seconds 
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Figure 4-20. Mid-Section End Views of Isotherms at 90 Seconds 
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Figure 4-22. Section View at Base of End Cap of 
Isotherms at 90 Seconds 
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Figure 4-23. Section View at Base of End Cap of 
Velocity Field at 90 Seconds 



95 



VENTILATED UNVENTILATED 

{NO SCALE) 



o c, o o o 




'QQQOQttDQQ 



o 




Figure 4-24. Mid-Section Front Views of Isotherms at 120 Seconds 
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Figure 4-25. Mid-Section Front Views of 
Velocity Field at 120 Seconds 
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Figure 4-26. Mid-Section End Views of Isotherms at 120 Seconds 
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Figure 4-27. Mid-Section End Views of 
Velocity Field at 120 Seconds 
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Figure 4-28. Section View at Base of End Cap of 
Isotherms at 120 Seconds 
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Figure 4-29. Section View at Base of End Cap of 
Velocity Field at 120 Seconds 
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Figure 4-30. Mid-Section Front Views of Isotherms at 150 Seconds 
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Figure 4-31. Mid-Section Front Views of 
Velocity Field at 150 Seconds 
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Figure 4-32. Mid-Section End Views of Isotherms at 150 Seconds 



104 




Figure 4-33. Mid-Section End Views of 
Velocity Field at 150 Seconds 
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Figure 4-34. Section View at Base of End Cap of 
Isotherms at 150 Seconds 
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Figure 4-35. Section View at Base of End Cap of 
Velocity Field at 150 Seconds 
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and it dominates the local velocity field. As can be seen in Figures 
4.12 through 4.33, the plume continues to dominate the field 
throughout the fire. The plume begins at the heat source and flows 
straight up until it reaches the ceiling, then it divides and flows 
towards either end of the vessel. In the local area of the fire, there is 
some entrainment of the field due to the plume flow. Due to the 
strength of the plume velocity, and the absence of any strong global 
circulation, the flame plume divides the velocity field in half, isolating 
the north and south regions. 

The flow in the hot ceiling layer does not appear to have strong 
enough momentum to carry it into the lower half of the tank, even in 
the south end, where the fan augments the flow. Instead, the flow 
recirculates into the tank interior, resulting in a downward-biased 
flow. It then returns to the fire region in a somewhat spatially oscilla- 
tory path. As can be seen in Figures 4.8, 4.10, and the other end views 
of the velocity field, there is a spiral flow circulation pattern in the 
ventilated case. This creates a more stagnant region to the right of 
the vertical center line. Figures 4.7, 4.9, and the other end views of 
isotherms show higher temperatures in this stagnant region because 
the heated fluid is not being convectively transferred. It also makes 
the conductive heat transfer through the tank wall in the region more 
important, as the temperature is higher. In the nonventilated case, 
the flow fields and isotherms appears to be symmetric about the verti- 
cal plane. 



108 



As mentioned previously, the velocity of the fans is a constant 3.18 
feet per second. This velocity is on the same order of magnitude as 
the flame plume, but since each fan is directed only toward the end 
caps, their impact on the global velocity field is not significant. The 
fan entrainment creates only a small local disturbance to the global 
flow pattern. The north fan outlet, in the lower region of the vessel, 
has little effect upon the global velocity since the global velocity in the 
region is very small, as seen in the nonventilated case. The fans effect 
the heat distribution locally, as discussed in the next paragraph. 

Figure 4.5 shows a hot layer along the ceiling of the tank, with the 
temperature highly stratified in the upper region. The lower two- 
thirds of the tank are still near the initial temperature. This tempera- 
ture distribution is exactly what the velocity field suggests, flow only in 
the upper third of the tank, and little flow in the bottom two-thirds. 
In Figures 4.12, 4.18, 4.24, and 4.30, the temperature stratification 
continues, but the heated fluid is slowly progressing toward the bot- 
tom of the tank. Even at 150 seconds. Figure 4.30 shows that the first 
isotherm, representing 15 degrees Centigrade above ambient, is only 
at the middle of the tank. The bottom half of the tank experiences 
very little temperature increase. In the ventilated case, the isotherms 
in the north end cap are higher than in the south. This can be attrib- 
uted to the fans at either end which push up the heated fluid in the 
north end and push down the heated fluid in the south end. The 
effect is limited to a small region in the end cap because the fan 
velocity is relatively low and the flow is parallel to the isotherms. 
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Since flow is along the stratification, very little mixing of different 
temperature gases occurs except in the end caps, where flow is forced 
into a single region. Had the fans been oriented in a direction not 
parallel to the isotherms, one would expect the temperatures in the 
lower portion of the tank to be more affected. 

One anomaly which appears in the ventilated case is the second 
circulation at the base of the flame plume on the north side seen in 
Figure 4.11. The flow in this region is flowing away from the flame 
plume until it turns upward as it hits the flow returning to the plume 
from the end caps. It is believed that this is a transient phenomena 
due to the interaction between the fan and flame plume entrainments. 
As can be seen in Figures 4.6 and 4.13, the phenomenon has disap- 
peared. Additional data for a time of 45 seconds, not included herein, 
shows no indication of the second circulation pattern. The effects of 
this second circulation pattern can be easily seen in the temperature 
field in Figure 4.11. 

Figures 4.36 through 4.39 present the data from the ventilated 
and nonventilated cases. Figure 4.36 shows that the global pressure in 
both cases is not very different. The differences can be attributed to 
two causes. First, the entire field is not at a thermodynamic equilib- 
rium state, and the relationship between the global pressure and a 
field not in thermod 3 mamic equilibrium is only an estimation. Any 
change to the field which would closer approach equilibrium, such as 
the mixing due to the fans, would affect the global pressure. Second, 
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Figure 4-36. Pressure Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-37. Thermocouple #1 Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-38. Thermocouple #2 Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-39. Thermocouple #4 Curves for the 
Ventilated and Nonventilated Cases 
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the fire is still in its first stages, and the entire field is rapidly chang- 
ing. This dynamic situation, along with the approximations inherent 
in modeling, can also account for differences in the ventilated and 
nonventilated fields. 

Figures 4.37 through 4.39 show the thermocouple temperatures 
versus time; the results are similar to the pressure, with the ventilated 
case increasing more slowly but then catching up to the nonventilated 
case, exceeding it at around 80 to 110 seconds. Since the thermo- 
couples are in the north end cap, they are in the area in which the 
isotherms are pushed upward by the fan. This could explain why the 
temperatures are lower in the ventilated case. The temperatures 
exhibit some local fluctuations which could be the result of thermal 
instability associated with thermal plumes [Ref. 37]. In Figure 4.39 it 
appears that there are large oscillations, but the scale on the graph is 
smaller so that the temperature oscillation of all three thermocouples 
is in the same range. These oscillations appear in both the ventilated 
and nonventilated cases. 

In most numerical models, the time step is an important factor. A 
small time step uses too much computer time, while too large a time 
step results in instability of the model. In this study, two trials were 
conducted with different time steps. In the first trial, a time step of 
0.0288 seconds was used up to 40 seconds of fire time, and then the 
step was reduced to 0.0192, In the second trial, the beginning time 
step was 0.1152 seconds until 6 seconds of fire time, when the model 
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Figure 4-40. Pressure Curves for Trials 1 and 2 
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Figure 4-41. Thermocouple #1 Curve for Trials 1 and 2 



became unstable. At that time, the time step was reduced to 0.0288 
and further reduced to 0.0192 near 80 seconds, when it again became 
unstable. Figures 4.40 and 4.41 show the global pressure and temper- 
ature of thermocouple number 1 versus time for both trials. Note that 
the curves are coincident for the first 20 seconds, then diverge until 
approximately 90 seconds, when they begin to converge. At the end of 
the runs, both the pressure and temperature appear to become coin- 
cident once again. Since the only difference between these two runs 
was the time step difference, it is evident that time step does affect 
the transient results in this computer model. Also interesting is that 
it appears that solutions using different time steps would become the 
same after a long period of time. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

Several conclusions may be drawn from tJiis simulation model of 
the FIRE-1 test facility with ventilation: 

1. The ventilation model has been successfully incorporated into the 
numerical model of FIRE-1. The local velocity fields in the 
region of the fans exhibit a realistic behavior. The global effect of 
the fans is small due to the relatively low velocity and because the 
flow is parallel to the isotherms. 

2. The global flow field exhibited appears realistic. The fire plume 
increases the gas velocity upward, resulting in a ceiling jet which 
is the dominant flow in the field. The flow recirculates within 
the field with minor variations caused by the ventilation. 

3. The isotherms depict the concentration of hot gases in the top of 
the field. These hot gases stratify and slowly diffuse downward as 
time progresses. The isotherms are affected by the ventilation in 
the end cap region, where they cire pushed upward or downward. 

4. A small change in the time step makes a discernable difference 
in the transient solution. With different time steps, the transient 
solutions are different. When the time steps are the same, the 
previously diverging transient solutions appear to converge and 
become coincident. 



B. RECOMMENDATIONS 

The following recommendabons are made for future work on the 
numerical model: 

1. Additional FIRE-1 experiments are needed to better validate the 
numerical model. Accurate heat-release rate data must be 
obtained and included in the model, instead of using a synthe- 
sized rate. Additionally, sensors should be placed at different 
locations in the vessel to better validate the numerical results 
throughout the field. 
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2. Develop and incorporate additional models to simulate physical 
phenomena such as gaseous radiation and combustion. 

3. Continue to expand and validate the model to include decks, 
equipment in the space, and fire -extinguishing systems. 

4. Since the model uses an extensive amount of computer time, it is 
imperative that the numerical model be transferred to a super- 
computer or a dedicated mini-computer. 

5. The ultimate goal of this project is to develop a computer model 
for predicting fire and smoke phenomena in shipboard situations. 
Completion of this goal will offer ship designers and engineers 
with a valuable tool to design and build safer ships and 
submarines. 
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HS2(1,1),HS2(1,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 

IN X-DIRECTIOr( (IN DIMENSIONLESS FORM) 
HS2(2,1),HS2(2,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 

IN Y-OIRECTION (IN DIMENSIOfJLESS FORM) 
HS2(3,1),HS2(3,2) FIRST AND LAST CCORDIAfTTE OF HEAT SOURCE 

IN 2-DIRECTICN (IN DIMENSIONLESS FORM) 



ICHPBl ) 
JCHPB( ) 
KCHPB( ) 
fCHPK ) 
NCHPJI ) 
NCHPKt ) 



STARTING NODAL NUMBER FOR SOLID IN THETA-DIRECTION 

R-OIRECTION 
Z OR PHI-DIRECTION 

NUMBER OF NODALS FOR SOLID irj THETA-OIRECTION 

R-OIRECTION 

2,PHI-OIRECTIO^J 



INPUT DATA & 

CALL INPUT 

aaaaaaaaaaaaaaaaaaaaaaaaaaa&aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

GENERATE GRIO SYSTEM a 

c aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

CALL GRID 

C *** READ VIEW FACTOR INVERSE MATRIX « 

999 READ (11,EN0=998) VFMXC 
GOTO 999 



00007700 

00007800 

00007900 

00008000 

00008100 

00003200 

00008300 

00008400 

C0008500 

00008600 

00008700 

00008300 

00003^00 

00009000 

0000^100 

00009200 

00009300 

00009<^00 

00009500 

00009600 

00009700 

00009800 

00009900 

00010000 

00010100 

00010200 

00010300 

00010400 

00010500 

00010600 
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993 CC; INUE 
REWIN’D 11 
CLOSE (11) 

C INITIALIZE THE WHOLE FIELD & 

CALL INIT 

C SSS&SS&S&SS&&SSS&SSSSS&&S£SSSSSS2&SS&SS2SSSSS&SSS&S&S&&&SS£&2;SS 
C START CALCULATION S 

c sss2;sss&s&&&&&&s&&ss&s&2£s&ssss&s&&3;&ss2;&ss&sssssss&ss&&&s&&&ss 



fsT=0 

NTIM=0 
SOO C0r4TINUE 
NT=NT+1 

*** NTMAXO HAS THE MEANING AS "NTREAL" WHEN IT IS READ FROM 
DISK OR TAPE. 

IFtXTIMH .GT. TMAX) GO TO SOS 
NTREAL=NT+NTMAXO 
TIME=TIME+DTIME 
XTIME=TIME^^H/UO 



CALCULATE THE TRAfiSIENT HEAT INPUT & 

NOTE IF 1 IN PAREhTTHESIS, THE BURN RATE IS CALCULATED £ 
BY THE PRESSURE CURVE. IF EQUAL TO TWO, THE BURN RATE £ 
CURVE IS EITHER GIVEN OR ESTIMATED £ 

££££££&£££££££££££££££££££££££££££££££££££££££££££££££££££££££££ 
CALL CALQ12J 



¥r^* 



START CALCULATION 



ITER=0 

JTERM=0 

JJTERM^O 

DEFINE THE UPDATED TPDC,J,K), CPDt I , J ,K ) ,RPD( I , J ,K ) 
U?0(I,J,K) AND VPD(I,J,KJ FOR THE USE OF CALVIS Af.'D SU(I,J,K) 

DO 48 K=1,NKP1 
DO 48 J=1,NJP1 
DO 43 I=1,NIP1 
TPD(I,J,K)=T( I,J,K) 

CPD(I,J,K)=C(I,J,K) 

RPD(I,J,K)=R(I,J,K) 

UPD(I,J,K l=U(I,J,K) 

VPD(I,J,K)=V(I,J,K) 

WPD(I,J,K)=W(I,J,K) 



00010700 

00010300 

00010900 

00011000 

00011100 

00011200 

OOOllSOO 

00011400 

00011500 

00011600 

00011700 

00011800 

00011900 

00012000 

00012100 

00012200 

00012S00 

00012400 

00012500 

00012600 

00012700 

00012800 

00012900 

OOOISOOO 

OOOISIOO 

0001S200 

OOOISSOO 

0001S400 

OOOISSOO 

0001S600 

0001S700 

OOOISSOO 

0C01S900 

00014000 

00014100 

00014200 

00014S00 

00014400 

00014500 

00014600 

00014700 

00014800 

00014°00 

00015000 

00015100 

00015200 

OOOISSOO 

00015400 

00015500 

OOOlSbOO 

00015700 

00C15800 

00015900 

00016000 

00016100 
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^8 CONTINUE 
29 CONTINUE 

JTERM=JTERM+1 
301 CONTINUE 



C CALCULATE THE RADIATION HEAT FLUX AT EVERY NRAD TIME STEPS & 
NRAD = 2 

IF (MOD(NT,NRAD ).NE.O ) GOTO ^000 
CALL RADHT(T<^HALL,VFMXC J 
AOOO CONTINUE 

C CALCULATE THE TEMPERATURE t 

CALL CALT 

C CALCULATE THE SMOKE CONCENTRATION 3 

0333333333333 3 a33a333333&3&33333333333333 3 33SS333S33333333 333 3333 
C CALL CALC 

DO 2000 J=1,NJP1 
DO 2000 I=1,NIP1 
DO 2000 K = l,r,'KPl 

IFtTi I,J,K).LT.TCOOU T( I , J ,K )=TCOOL 
2000 CONTINUE 

C/.'/iX/.'XXXXX^'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
C GLOBLE PRESSURE CORRECTION FOR ENCLOSED TANK AIR 7, 

cx;:xxxx/:xxxxxxxxxxzx:<xxxx;rxx>:xxxxxx/:xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CALL GLC3E 

C 2* 3) ^ 3) ok ^ X' a) ok 2* ai o) a) ok ^ 3) ok 3) ol q) a) 3) 3 S a) a) a) at ^ 3) q) ^ ^ a) q) o) 3) o) ^ ^ o) ^ 3) 3) a) a) 3) ^ o) ^ o) o) 3) q) o) 3) o) 3) q) S o) 
C CALCULATE THE TURBULENT VISCOSITY AND CONDUCTIVITY 2 

C ai22222223220222 2222220222222222 20232222223222222222232 22 22222222 
CALL CALVIS 



0 CALCULATE THE OErJSITY * 

DO 100 J=1,NJP1 
DC 100 I=1,NIP1 
DO 100 K=1,NKP1 
IF (NODtI,J,K).EQ.l) GOTO 100 
AAAA=BUOY^UGRT*HEIGHT( I,J,K ) 

R(I,J,K ) = (UGRT*P(I,J,K) + t l./EXPl AAAA) ) )/T(I,J,K) 

100 COr^TINUE 

0 $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C CORRECT CONDUCTIVITY OF THE SOLID $ 

IF (NCHIP.EQ.O) GOTO 410 



00016200 

00016300 

00016400 

CC016500 

ODOlbbOO 

00016700 

OOOlbSOO 

00016900 

00017000 

00017100 

00017200 

00017300 

00017400 

00017500 

00017600 

00017700 

00017800 

00017900 

00018000 

00018100 

00018200 

00018300 

00018400 

00018500 

00018600 

00018700 

00018800 

00018900 

00019000 

00019100 

00019200 

00019300 

00019400 

00019500 

00019600 

00019700 

0001*^800 

00019900 

00020000 

00020100 

00020200 

OC020300 

00020400 

00020500 

00020600 

00020700 

00020800 

00020900 

00021000 

00021100 

00021200 

00021300 

00021400 

00021500 

00021600 
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CALL SOLCON 
^10 CONTINUE 

C START PRESSURE CORRECTION ITERATIVE LOOP, IT IS THE MAJOR X 
C PART OF THE ERROR CONTROL ROUTINE V. 

zv:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:/:^^^^^^ 

ITER=ITER+1 

C 00000 0000^0 S3 3 SOOOSOOOOSOOOOOO 00 0000000000000 

C CALCULATE THE VELOCITY U,V,AND W 0 

C 0 000000000000000000000000000000000000000000000000000000000000000 

CALL CALU 
CC CALL STRESS 

C *** **-i^^********* 

CALL CALV 
CC CALL STRESS 

C *** *:((************ 

CALL CALH 
CC CALL STRESS 

C *** *********^^t*** 

c$$$o$$t $$$$$$ $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$ 
c CALCULATE THE PRESSURE AND STRESS & 



CALL CALP 
CALL STRESS 



C IF SOURCE TERM IS LARGER THAN 10.0, STOP PROGRAM X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

IF tRESORMi ITER ).GT. 10.0) GOTO 2020 



IF(RESORM(ITER) .LE. SORMAX ) GO TO 
IFl ITER .EQ. 1 ) GO TO 302 
ITERM1=ITER-1 

IFl RESORMC ITER) .LE. RESORMl ITERMl ) ) GO TO 302 
GO TO 30-4 

302 IFUTERM .GE. 2 ) GO TO 37 
SOURC£=RESCRM(ITER) 

GO TO 3*=^ 

37 IFl RESORMl ITER) . LE . SOURCE) GO TO 38 
GO TO 30^ 

38 SCURCE=RESORM(ITER) 

3^ CONTINUE 

WRITE ( b ,95 ) ITER , RESORMl ITER ) ,SORSUM 
95 F0RMAT153X, ‘ITER= ' ,I 2 ,2X, ‘SOURCE = ' ,F9.6,2X, *SORMUP= ’ ,F9.6 ) 
DO 23 K=1,NKP1 
DO 23 J=1,NJP1 
DO 23 I=1,NIP1 
TPD(1,J,K)=T(I,J,K) 



00021700 

00021800 

00021900 

00022000 

00022100 

00022200 

00022300 

00022900 

00022500 

00022600 

00022700 

00022800 

00022900 

00023000 

00023100 

00023200 

00023300 

00023900 

00023500 

00023600 

00023700 

00023600 

00023900 

00029000 

00029100 

00029200 

00029300 

00029900 

00029500 

00029600 

00029700 

00029800 

00029900 

00025000 

00025100 

00025200 

0002S3C0 

00025900 

00C25500 

000256C0 

000257C0 

00025800 

00C25900 

00026000 

OOOColOO 

0002o200 

0002o300 

0002b900 

00026500 

00026600 

00026700 

00026800 

00026900 

00027000 

00027100 
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CPD(I,J,K) = C(I,J,K) 


00027200 




RPD(I,J,K) = R(I,J,K) 


00027300 




UPD(I,J,K>=U(I,J,K) 


00027400 




VPD(I,J,K)=V(I,J,K) 


00027500 




WPD(I,J,K)=W(I,J,K) 


00027600 




PPD(I,J,KJ=P(I,J,K) 


00027700 


25 


COUTItJUE 


00027800 




JJTERM=0 


00027900 




IFdTER ,EQ. ITMAX) GO TO 49 


00028000 




IF(JTERM ,EQ. 2 ) GO TO 35 


00028100 




IF( ITER .EQ. 4) GO TO 29 


00028200 


35 


CONTINUE 


00028300 




IF(JTERM .EQ. 3 ) GO TO 58 


00028400 




IFdTER .EQ. 7) GO TO 29 


00028500 


58 


CONTINUE 


00028600 




JJTERM=0 


00028700 




GO TO 301 


00028800 


30^4 


CONTINUE 


00028900 




JJTERM=JJTERM41 


00029000 




IF(JJTERM .EQ. 1) WRITE(6,9S) ITER ,RESORM (ITER ) ,SORSUM 


00029100 




IFtJTERM .EQ. 1 ) GO TO 41 


00029200 




IF(JTERM .EQ. 2 .AND. JJTERM .EQ. 1 .AND. ITER . NE . 5) GO TO 41 


00029300 




GO TO 82 


00029400 


41 


CO^)TI^aJE 


00029500 




DO 40 K=1,NKP1 


00029600 




DO 40 J=1,NJP1 


00029700 




DO 40 I=1,NIP1 


00029800 




Rd,J,K)=RPOd>J,K) 


00029900 




U(I,J,K)=UPDd,J,K) 


00030000 




Vd,J,K)=VPD(I,J,K) 


0C03C100 




Wd,J,K)=NPOd,J,K) 


00030200 




P(I,J,K) = PPDd,J,K) 


00030300 


40 


CONTI.NUE 


00030400 




IFdTER .EQ. ITMAXI GO TO 49 


00030500 




GO TO 29 


00030600 


82 


CONTINUE 


00030700 




DO 43 K=1,NKP1 


00030800 




DO 43 J = l,rJJPl 


00030900 




DO 43 I=1,NIP1 


00031000 




Td, J,K (=T?Dd,J,K ) 


00031100 




Cd ,J,K )=CPDd,J,K ) 


OOC31200 




Rd,J,K l = RPDd,J,K) 


00031300 




Ud,J,K)=UPD(I,J,K) 


00031400 




Vd,J,K;=VPDd,J,K) 


00031500 




Wd,J,K)=NPDd,J,K) 


00031600 




Pd,J,K l=PPD(I,J,K) 


00031700 


43 


CONTINUE 


00031800 




IFdTER .EQ. ITMAX) GO TO 49 


00031900 




IF((JTERM .EQ. 3 .AND. ITER .NE. 8) .OR. JJTERM .EQ. 2) GO TO 49 


00032000 




GO TO 301 


00032100 


49 


C0NTI^4UE 


00032200 

00032300 




ITERT=ITERT+ITER 


00032400 




00032500 


c 


GO TO THE PRESSURE TRACKING SUBROUTINE , PRINT OUT « 


00032600 
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C RESULTS IF AT THE RIGHT TIME INTERVAL » 

CALL PTRACK 

IF IMOD(NTREAL,NWRP).EQ.O) CALL OUT( 1 ) 

FIND TEMPERATURES AT THERMOCOUPLE POINTS AND PRINT OUT X 
IF AT THE RIGHT TIME INTERVAL X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CALL TCP 

IF (MOD(NTREAL,NWRP).EQ.O ) CALL OUT(2) 

2A22 CONTirnjE 

IF (MOO(mREAL,NWRITE ).EQ.O ) CALL OUT( 3 ) 

C IF(NTREAL .EQ. NTREAL/NNRITE*NWRITE ) CALL OUT! 3) 

505 CONTINUE 

IF( (XTIME+DTIME*HAJO) .GE. TMAX) GO TO 277 

C *** **^*-*****^^ ********************** ^Hf*******^Hf***^HHtiHHt******** 
C CALL TLEFT(IT) 

C 123 FORMAT! ■ ITLEFT = ',110) 

C IT0=IT 

C IF( IT. LT. ITLEFT) CALL OUTt3) 

C *** *^’»t************#****^*****^******iHHe********^HHHHt**-*t***if*** 



C *** RESET THE OLD TIME VALUES TOD, ROD, UOO, VOD AND POD. 

DO 305 K=1,NKP1 
DO 305 J=1,NJP1 
DO 305 I=1,NIP1 
TODC,J,K)=T(I,J,K) 

CCD(I,J,K )=CII,J,K) 

ROD(I,J,K)=R(I,J,K) 

UOD(I,J,K l=U(I,J,K) 

VODC,J,K )=V!I,J,K) 

K0D(I,J,K1=H(I,J,K) 

POD(I,J,K)=P(I,J,K) 

305 corrriNUE 

c I ] 1 1 i ] ! 1 1 ! i I i 1 1 1 1 ! 1 1 1 1 1 1 i 1 1 1 i 1 1 1 1 1 1 1 1 i i 1 1 1 1 1 1 1 i i 1 1 1 1 i 1 1 i 1 1 1 i i 1 1 
C THIS WRITING IS FOR PLOTTItJGS I 

ci I i I 1 1 i I 1 1 1 1 1 1 1 I ! ! I ! 1 1 i 1 1 1 1 I ] M 1 1 ] 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 i 1 1 I ! i 1 1 i I i i i I i 
IFirJTREAL .NE. NTREAL/NTAPE*riTAP£ )GOTO 522 
IKRITE=10 
KT.ITE; IWRITE ) 

S TIME ,NTREAL,r,R,U,V,W,P,CPM,COND, VIS, QRNHT,ITERT,OCORRT,PMl,PM2, 
a H ,TA ,U0 , CONDO ,VIS0 ,RHOO ,NI ,NJ ,N!< ,NIP1 ,NJP1 ,NKP1 ,NIfll ,NJM1 ,NKM1 , 
a >X , YC , ZC , XS , YS , ZS , DXXC , D YYC , DZ2C , OXXS , D YYS , DZ2S 
WRITEtb,*) 'THE TIME WHEN THE DATA WAS STORED ON TAPE IS:’, 
a XTIME 

C *** »»»»»»»»»»»»»»»*»*»»*»***»»*»»**»»*»•»»»»•»*»»*»»*» 



00032700 

00032800 

00032900 

00033000 

00033100 

00033200 

00033300 

00033^00 

00033500 

00033600 

00033700 

00033800 

00033900 

00034000 

00034100 

00034200 

00034300 

00034400 

00034500 

00034600 

00034700 

00034800 

00034900 

00035000 

00035100 

00035200 

00035300 

00035400 

00035500 

00035600 

00035700 

00035800 

00035900 

00036000 

00036100 

00036200 

00036300 

00036400 

00036500 

00036600 

00D36700 

00036800 

0003o900 

00037000 

00037100 

00037200 

00037300 

00037400 

00037500 

00037600 

00037700 

00037800 

00037900 

00038000 

00038100 
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522 CONTINUE 

*** *****************************»******->t^********************** 

CALL TLEFT(IT) 

IF( IT.LT.ITLEFT ) GO TO 166 

*** **^^*****ri^******************^**<Ht************************** 

TIMREM IS USED TO CALCULATE THE CPU TIME REMAINING AT NPS 

IF (TIMREMIO. ).LE.80. ) GOTO 166 

GO TO 500 
305 CONTINUE 
277 CONTirWE 

WRITE(6,1111) 

1111 FORMAT! 2X, ******* THE MAXIMUM TIME HAS BEEN REACHED *******,18) 
GO TO 172 

C *** ********************************************************** 

16t> IFINTREAL .NE. NTREAL/NTAPE-^NTAPE ) WRITE! 9) 

& TIME, NTREAL,T,R,U,V,W,P,CPM,COND, VIS, ORNET,ITERT,QCORRT,PMl,PM2, 
& H ,TA ,UO , CONDO ,VISO ,RHOO ,NI ,r!J ,NK ,NIP1 ,rUPl ,NKP1 ,NIM1 ,NJM1 ,NKM1, 

& XC , YC , 2C , XS , YS , Z3 , DXXC , D YYC , DZZC , DXXS , DY YS , DZZS 
REWiriD 9 

GOTO 172 
2020 COr^TINUE 

WRITE !6,*) * RESIDUAL MASS IS LARGER THAN 10.0, PROGRAM STOPS* 
172 CCNTINUE 
STOP 
END 



C 

*->********^-:f*****^<-,^')ir***********iir*********',^-****************^********** 

SUBROUTINE INPUT 



00058200 

00058500 

00058<400 

00058500 

00058600 

00058700 

00058800 

00058900 

0005^000 

00059100 

00059200 

00059500 

00059400 

00059500 

00059600 

00059700 

00059300 

00059900 

00040000 

00040100 

00040200 

00040500 

00040400 

00040500 

00040600 

00040700 

00040800 

00040900 

00041000 

00041100 

00041200 

00041300 

00041400 

00041500 

00041600 

00041700 

00041800 

00041900 



* *********->t*****5<^*-»^*********#****^**********#************>,t************ 00042000 



* 


THIS SUBROUTINE 


SETS UP 


REQUIRED VALUES TO BEGIN THE PROGRAM. 


*00042100 


* 


VARIABLES ARE: 






*00042200 


* 


KRUN 


= 


WHEN EQUAL TO ONE , READ FROM THE 


*00042500 


* 






RESTART DISK, ELSE FROM THE JCL 


*0D042h00 


* 


NCHIP 


= 


NUMBER Or SOLID PIECES 


*00042500 


* 


NWRP 


= 


NUMBER OF TIME STEPS TO WRITE m THE 


*00042600 


* 






PAPER 


*00042700 


* 


NTHCO 


= 


r^MBER OF THERMOCOUPLES TO PRINT OUT 


*00042800 


* 


TMAX 


= 


MAXIMUM TIME ALLOWED IREAU 


*00042900 


* 


TWRITE 


= 


SECONDS IN REAL TIME TO PRINT THE 


*00045000 








P,V,T FIELDS ON PAPER 


*00045100 


* 


TTAPE 


= 


TIME INTERVAL TO WRITE Oti THE TAPE 


*00045200 


* 


DTIME 


= 


TIME STFP ! DIMENSIONLESS) 


*00045500 


* 


HSZ 


r 


HEAT SOURCE SIZE, USED TO CALCULATE 


*00045400 








THE VOLUME OF THE FIRE CELL 


*00045500 


* 


ICHPB 


= 


FIRST SOLID NODE IN THETA DIRECTION 


*00045600 



128 



FIRST SOLID NODE IN R DIRECTION 
FIRST SOLID NODE IN PHI DIRECTION 
NUMBER OF NODES IN THETA DIRECTION 
rJUMBER OF NODES IN R DIRECTION 
NUMBER OF NODES IN PHI DIRECTION 



#000^5700 

*00043800 

*00043900 

*00044000 

*00044100 



00044S00 

00044600 

00044700 

00044800 

00044900 

0OO4SO0O 



* JCHPB = 

* KCHPB = 

* NCHPI = 

* NCHPJ = 

* NCHPK = 

* CX,CY,CZ = THERMOCOUPLE POSITIONS IN THETA, R, PHI *00044200 

y •»‘************^<*^********^(-«-**^HHt*******ii^***-jt^************9( ******#**^*****00044 300 

00044400 

C0MM0N/R4/XC( 93 ) ,YC( 93 ) ,ZC( 93 ) ,XS( 93 I ,YS( 93 ) ,ZS( 93 ) , 

& DXXCl 93 ) ,DYYC( 93 1 ,DZZC( 93 ) ,DXXS( 93 ) ,DYYS( 93 J ,DZZS( 93 ) 

C0MM0N/BL1/DX,DY,DZ,V0L,DTIME ,VOLDT ,THOT ,TCOOL ,PI ,Q,QR 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ >NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 

5 ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA,NHRP 
COMMO^i/BL12/ NWRITE ,NTAPE ,NTMAX0 ,NTREAL ,TIME ,SORSUM,ITER 
COMMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PM1,PM20004S100 
COMMON/BL16/ CONSTl ,CONST2 ,COr:ST3 ,COr4ST4 ,CONSTb , NT ,U0 ,H ,UGRT , BUOY >00045200 

6 CPO ,PRT , CONDO ,VIS0 ,RHOO ,HR ,TR ,TA ,DTEIiP ,THRITE ,TTAPE ,TMAX ,GC ,RAIR00045300 

CCMMON/BL20/SIG1K 22 , 16 ,32 J ,GIG12( 22 ,16 ,32 J ,SIG22( 22 ,16 ,32 ) 00045400 

& ,SIG13( 22,16,32 J,SIG23( 22 , 16 ,32 ) ,SIG33( 22,16,32 ) 00045500 

CCMMON/BL22/ICHPB( 10 ) ,NCHPI I 10 ) , JCHPBt 10 J ,KCHPJ( 10 ) ,KCHPB( 10 ) , 00045600 

& NCHPK( 10 J ,TCHP( 10 ) ,CPS( 10 ) ,CONSt 10 ) ,WFAN( 10 ) 00045700 

COMMON/BL31/ TOD( 22 , lo ,32 ) ,ROD( 22 , 16 ,32 ) ,POD( 22,16,32 ) 00045800 

& ,COD( 22,16,32 ),UOD( 22,16,32 ],VOD( 22 ,lt> ,32 ) ,WOD( 22 ,16 ,32 J 00045900 

C0MM0N/BL32/ T( 22 , 16 , 32 ) , R( 22 ,16 ,32 i ,P( 22,16,32 ) 00046000 

& ,C( 22,lb,32 ) ,U( 22,lo,32 ),V( 22,lo,32 ) ,W( 22,16,32) 00046100 

C0MM0N/BL33/ TPD( 22 ,16 ,32 ) ,RPD( 22 , 16 ,32 ) ,PPD( 22,16,32) 0004t>200 

a ,CPD( 22,16,32 ),UPD( 22,16,32 ),VPD( 22 ,16 ,32 ) ,KPD( 22,16,32 ) 00046300 

C0MM0N/BL34/ HEIGHTt 22 , 16 ,32 ) ,REQ( 22,16,32 1, 00046400 

& SMP( 22,16,32 I, SMPP( 22,16,32 ) ,PP( 22 , 16 ,32 ) , 00046500 

& DU( 22,16,32 ),DV( 22 ,lo ,32 ) ,DW( 22 ,16 ,32 ) 00046600 

C0MM0?VBL36/AP( 22 , 16 ,32 ) , AE ( 22 , 16 ,32 ) ,AW( 22 , 16 ,32 ) , AN( 22,16,32 ), 00046700 

& AS( 22,lo,32 ) ,AF( 22,16,32 ),AB( 22,16,32 ), 00046800 

& SPl 22, lo, 32 ),SU( 22,16,32 ),RI( 22,16,32 ) 00046900 

COMMON/BL57/ VISl 22 , lo ,32 ) ,COND( 22 ,16 ,32 ) ,rJOD( 22 ,16 ,32 ) ,RWALL( 579 )00047000 
a ,CPMl 22,16,32 ),HSZ( 3,2 ),NHSZ( 22,lo,32 » ,RESORM( 93 ) 00047100 

C0MM0rJ/BL38/NTHC0,CX( 12 ) ,CY( 12 ) ,CZ( 12 ) ,NTH( 12,3) ,TC0UP( 12 ) 00047200 

00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 
00048000 
00048100 
00048200 

READ (5,*) HSZ( 1,1 ),HSZ( 1 ,2 ),HSZ( 2,1 ) ,H3Zf 2,2 ),HSZ(3,1 ),HSZ( 3,2 ) 00048300 
WRITE (6,20) H3Z( 1,1) ,HSZ( 1,2) ,HSZ( 2,1 ) ,HSZ( 2,2) ,HSZ( 3,1) ,HSZ( 3,2 ) 00048400 
20 FORMAT (/,20X,'HEAT SOURCE LOCATION IS IN THE VOLUME (NON-DIME', 00048500 



C ^1. READ IN DATA TO INDICATE EITHER KRUN=0 OR 1 
READ( 5 ,* ) KRUri,NCHIP ,NV)RP ,NTHC0 

C V2. READ IN DATA SET 1-6 DATA 

READ(5,*) TMAX,TWRITE,TTAPE ,DTIME 

C PZ, READ IN DATA FOR HEAT SOURCE 



a 


'NSIC.NAL KITH 


RESPECT 


TO RA 


DIUS)' , 






00048o00 


a 


/,5X, 'FROM 


’ ,F8.4,' 


' TO 


' ,F8.4,' 


IN 


X-DIRECTION* , 


00048700 


a 


/,5X, 'FROM 


’ ,F8.4,' 


' TO 


' ,F8.4,‘ 


IN 


Y-DIRECTION' , 


00048S00 


a 


/,5X, 'FROM 


’,F8.4,' 


' TO 


’>F8.4,' 


ir) 


Z-DIRECTION* ,/) 


00048900 



00049000 

00049100 
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C tH. READ IN DECK DATA 

IF (NCHIP.EQ.O) GOTO 16 
PRINT * 

PRirrr *,■ the region bounded by solid* 

DO N=1,NCHIP 

READ (5,*) ICHPB(N),NCHPI(N),JCHPB(N),NCHPJ1N),KCHPB1N), 

I NCHPKl N ) ,TCHP( N ) ,CPS( N ) ,CONSl N ) ,HFAN( N ) 

HRITE (6,10) N,ICHPB(N),NCHPI(N),JCHPB(N),NCHPJ(N),KCHPB(N), 

& NCHPK( N ) ,TCHP( N ) ,CPS( N ) ,HFAN( N ) ,C0NS1 N ) 

10 FORMAT (2X,'N= *,I2,' ICHPB= •,I2,' NCHPI= ',12, * JCHPB= ',12, 
i* NCHPJ= *,I2, * KCHPB= ',12,' NCHPK= ',12, ' TCHP= ' ,F8.S, 

&' CPS= ',F8.S,/, ' HFAN = ',F12.S,* CONS= ',F12.S,/) 

19 CONTirAJE 
16 CONTINUE 



«5. INPUT THERMOCOUPLE COORDINATE 

IN TERMS OF X( THETA), Y( RADIUS ) ,Z( PHI ) 

PRINT * 

PRINT *, * THERMOCOUPLE POSITION IN TERMS OF THETA, R, PHI' 
PRINT * 

DO 110 i=i,rrTHco 

READ (5,*) CX(I ),CYm,CZ(I) 

WRITE (6,*) I, CX(I),CY(I),CZ(I) 

110 COrTTINUE 

RETURN 

END 



00049200 

00049300 

00049400 

00040500 

00049600 

00040700 

00049600 

00049900 

00050000 

00050100 

00050200 

00050300 

00050400 

00050500 

00050600 

00050700 

00050800 

00050900 

00051000 

00051100 

00051200 

00051300 

00051400 

00051500 

00051600 

00051700 

00051800 

00051900 

00052000 

00052100 

00052200 

00052300 

00052400 






SUBROUTINE INIT 00052600 

C *** **,^*************^********v^**^^*^*#*********************^Ht******* 00052700 



>w*#****#*^***^*******ff********^*^)f#***^j**^***************^(-*****^******* 00052800 



* 


THIS SUBROUTINE 


INITIALIZES THE FIELD AND CONSTANTS WITH RESPECT 


*00052900 


* 


TO INITIAL START 


OR 


RESTARTING CAPABILITY. 


*00053000 


* 


VARIABLES ARE ; 






*00053100 


* 


TIME 


= 


DIMENSIOriLESS TIME 


*00053200 




UO 


= 


CHARACTERISTIC VELOCITY (1 FT/SEC) 


*00053300 


* 


H 


= 


CHARACTERISTIC LENGTH ( RADIUS! 9 . 6FT ) ) 


*00053hOO 




TR 


= 


TEMP IN DEGREES KELVIN 


*00053500 


* 


TA 




TEMD IN DEGREES RANKINE 


*00053600 


* 


VISO 


= 


REFERENCE VISCOSITY (NCNDIM) 


*00053700 




VISL 


= 


MINIMUM VISCOSITY (NONDIM) 


*00053800 


* 


VISMAX 


= 


MAXIMUM VISCOSITY (NONDIM) 


*00053900 


* 


HR 


= 


RADIUS IN CM 


*00054000 


* 


CONDO 




REFERENCE CONDUCTIVITY 


*00054100 


* 


CO 




INITIAL SMOKE CONCENTRATION 


*00054200 


* 


NJRA 


= 


POINT OF RADIATION IN J DIRECTION 


*00054300 


* 






LOCATED ON THE INNER SOLID BOUNDARY 


*00054400 


* 


HCONV 


= 


HEAT TRANSFER COEFFICIENT 


*00054500 


* 


HCOEF 


= 


DIMENSIONLESS HEAT TRANSFER COEF 


*00054600 
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CONST 1 


= 


USED TO N0ND1MF^43I0NALIZE PRESSURE 


*00054700 




RHOO 


= 


REFERENCE DENSITY 


*00054800 




GC 


= 


GRAVITY COrJSTANT 


*00054900 




BUOY 


= 


BUOYAr;CY FORCE COfiSTANT 


*00055000 




UGRT 


= 


PERFECT GAS LAW NONDIHEflSIONAL CONSTANT*00055100 




CPO 


= 


REFERENCE SPECIFIC HEAT 


*00055200 


* 


NNRITE/ 


= 


NONOIMENSIOISIAL FORMS OF TWRITE AND 


*00055300 


* 


NTAPE 




TTAPE 


*00055400 




MATRICES OF THE 1 


FORM 




*00055500 




-OD 


r 


DIMENSIONLESS PARAMETER AT OLD TIME 


*00055600 


¥ 




= 


DIMENSIONLESS PARAMETER 


*00055700 




Ipd 


= 


UPDATED DIMENSIONLESS PARAMETER 


*00055800 


¥ 


WHERE THE PARAMETERS ARE 




*00055900 




u,v,w 


= 


VELOCITY IN THETA, R , PHI DIRECTION 


*00056000 




T,P,C 


= 


TEMP, PRESSURE, AND SMOKE CONCENTRATION*00056100 


¥: 








*00056200 


* 


DU,DV,DZ 


= 


USED IN PRESSURE CORRECTION SUBROUTINE 


*00056300 




PP 


= 


CORRECTED PRESSURE (P‘) 


*00056400 


* 


SU 


= 


SOURCE TERM 


*00056500 


* 


SP 


r 


TERM AT P NODAL POINT FOR BOUNDARY 


*00056600 








CONDlTIOf'iS 


*00056700 


* 


AP 


X 


COEFICIENT AT ^)ODAL POINT 


*00056800 


* 


AE,AW,AN 


= 


CCEFICIENTS AT PTS E AST , WEST , NORTH , 


*00056900 


* 


AS,AF,AB 




SOUTH, FRONT, AND BACK 


*00057000 




SMP 


= 


RESIDUAL MASS SUMMATION OF NODAL POINT 


*00057100 


* 


SMPP 


= 


LENGTH SCALE FOR TURBULENCE 


*00057200 


* 


CPM 


= 


MEAN SPECIFIC HEAT 


*00057300 




VIS 


= 


VISCOSITY 


*00057400 




COND 


= 


CONDUCTIVITY MATRIX 


*00057500 


* 


NHSZ 


= 


WHEN THIS VALUE EQUALS ZERO, THERE IS 


*00057600 


* 






NO HEAT SOURCE LOCATED AT THE NODE 


*00057700 


* 


NOO 


= 


IF EQUAL TO ZERO, LIQUID 


*00057800 


* 






IF EQUAL TO ONE, SOcID 


*00057900 


* 


^b,_e 


= 


BEGir^NING Af,’D ENDING NODAL POINT FOR 


*00058000 


¥■ 






THE SOLID IN I,J,K 


*00053100 


* 


REQ 


= 


DENSITY AT EQUILIBRIUM 


*00058200 




NIPl 


= 


NODAL POINT IN I PLUS 1 (OTHERS SIMILAR )00058300 




XC,YC,ZC 


r 


THETA, R, PHI LOCATION OF NODAL POINT OF 


*00058400 


* 






A CENTER CELL 


*00058500 




DXXC,DYYC 


= 


LENGTH AROUND THE CENTER CELL 


*00058600 




DZZC 






*00058700 




X3,YS,Z3 


= 


THETA, R, PHI LOCATION OF NODAL POINT OF 


*00055800 








A STAGGERED CELL 


*0005S<^00 




DXX3,DYYS 


= 


LENGTH AROUND THE STAGGERED CELL 


*0005‘=000 




DZZS 






*00059100 


* 


CX,CY,CZ 


= 


LOCATION OF THERMOCOUPLE IN THETA ,R ,PHI*00059200 






COMMOr>i/RH/XC( 93 ) ,YC! 93 ),ZC( 93 ),XS( 93 ) ,YSt 93 ) >ZSt 93), 00059400 

Z DXXC( 93 ) ,DYYC( 93 ) ,D2ZC( «^3 ) ,DXXSI 93 ) ,DYYG( 93 ) ,DZ2S( 93 ) 0005®500 

C0M?10N/BL1/DX,DY,DZ,V0L,DTIME,V0LDT,TH0T,TC00L,PI,Q,QR 00059600 

COKMOrJ/BL7/NI ,NIP1 ,NI«1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 00059700 

Z ,NIP2,r4JP2,r)KP2,NA,NAPl,NAMl ,N3 ,N3P1 ,NBM1 ,KRUT>J ,NCHIP ,NJRA ,NWRP 00059800 
COMMON/BL12/ NWRITE,NTAPE ,NTMAX0 ,^n^REAL , TIME ,S0R$UM , ITER 00059900 



COMMOH/BL14/HCOEF,Tir4F,CMT,A5TURB,BTURB,VISL,VI$MAX,QCORRT,PMl,PM200060000 
COMMOr4/BL16/ CONSTl ,CONST2,CONST3 ,C0riST4,C0N3T6 , NT, UO ,H,UGRT, BUOY ,00060100 
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CPO ,PPxT ,CON'DO ,VISO ,RHOO ,HR ,TR ,TA ,DTEMP ,TWRITE ,TTAPt ,TMAX ,GC ,RAIR00060200 
COmON/BL20/SIGll( 22 , 16 ,32 ) ,SIG12( 22,lt> ,32 ),SIG22l 22,16,32 ) 00060300 

X ,SIG13122,16,32 J,SIG23( 22 , lo ,32 ) ,SIG33( 22,lo,32 ) 00060400 

COMMON/BL22/ICHPB( 10 J,NCHPI( 10 J,JCHPB( 10 »,NCHPJ( 10 ),KCHPB( 10 ), 00060500 

S NCHPK( 10 ) ,TCHP( 10 I ,CPG( 10 ^ ,C0N3( 10 ) ,NFAN( 10 ) OOOoObOO 

C0MMCN/BL31/ T00( 22 ,1b ,32 ), ROD ( 22,16,32 1 ,POD( 22,16,32 1 000o0700 

£ ,COO( 22, lb, 32 l,UOD( 22,16,32 ),VOD( 22 , lb , 32 J ,WOO ( 22,16,32 ) 00060S00 

COMMON/BL32/ T( 22 , 16 ,32 ) ,R( 22 , 16 ,32 ) ,P( 22 , 16 ,32 ) 00060900 

£ ,C( 22,16,32 ),U( 22, 16,32 J,V( 22, 16,32 ),W( 22, 16, 32) 00061000 

COMMON/BL33/ TPOl 22,16,32 ) ,RPD( 22 , 16 ,32 ) ,PPD( 22,lo,32 ) 00061100 

£ ,CPO( 22,16,32 ),UPO( 22,16,32 UVPO( 22 ,lb,32 ) ,WPO( 22 ,16 ,32 ) 00061200 

COMMOr4/BL34/ HEIGHT! 22 , 16 ,32 ) ,REQ( 22,16,32 ), 00061300 

£ SM?( 22,16,32 ),SMPP( 22 , lb ,32 ) ,PP( 22,16,32 ), 00061400 

£ DU(22,16>32 J,DV( 22,16,32 ),DW(22,16,32 ) 00061500 

COMMON/BL36/AP( 22 , 16 ,32 ) , AE ( 22 , 16 ,32 ) ,AWl 22 ,16 ,32 ) , AN( 22,16,32 ), 00061600 

£ AS( 22,16,32 ),AFl 22 , 16 ,32 ) ,AB( 22,16,32), 00061700 

£ SP(22,16 ,32 J,SU(22,16,32 ),RIC 22,16,32 ) 00061800 

COHMON/BL37/ VIS( 22 , lb ,32 ) ,COND( 22 , lb ,32 I ,NOD ( 22 , 16 ,32 ) ,RWALU 579 )000bl900 

00062000 
00062100 
00062200 
00062300 
00062400 
000b2500 
00062600 
00062700 
00062800 
00062900 
00065000 
00063100 
00063200 
000o3300 
00063400 
00063500 
00063600 
0C063700 
00063800 
00063900 
00064000 
000b4100 
00064200 
00064300 
00064400 
00064500 
000b4600 
00064700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 



£ ,CPM( 22,16,32 J ,HSZ( 3,2) ,NHS2( 22,16,32 ) ,RESORM( 93 ) 

C0MM0N/BL38/NTHC0,CX( 12 ) ,CY( 12 ) ,C2l 12 ) ,NTH( 12,3 ) ,TCOUP( 12 ) 
COMMON/BL3 9/ALE W , PCURVE , CONSRA , PCURMl , PSOUTH , QCORR , PE RROR 
DATA GRAV/32.17/ 

C INTROOUCE GIVEN PARAMETERS 

TIME=0. 

TR=TA/1.8 
H = 9.6 

VISO=VISO/UO/H 

VISL=VISO 

VISMAX=400.*VISL 

HR=H^30.48 

COr^DO=VISO/PRT 

PI=^.*ATAN( 1. ) 

ALEH =1.0 
NJRA=15 

C THE HEAT TRANSFER COEFFICIENT IS IN BTU/HR/FT*^^2/F 
HCONV=15.0 

HCOEF=HCONV/( 3600 . *CPO^RHOO^UO ) 

CC = 0.0 



COKST1=RHOO*UO^^UO/(GC*14. 696*144. ) 

C0r:ST3 = 1.8/TA 

COrx'3T4 = H*30.48 

COriSTb=U0*30.48 

NTMAX0=0 

BL'OY=GRAV*H/(UO*UO J 
UGRT=UO*UO/( GC*RAIR*TA ) 

TCOOL=1.0 

C0i4SRA=TA*TA*TA/( RHO0*CP0*U0*3600 . 



)*1.714E-9 



WRITE (6,200) TR , CONDO , VISO , CPO , HR , DTIME , HCONV 
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200 FORMATtSX, 'THE REFRENCE TEMPERATURE AND THERMAL PROPERTIES',/, 
& /,5X, 'T = •,F10.‘4,’K, condo = ’,E12.b, 

5 /,SX,'VISO = SE12.6,' CPO = ',E12.6, 

6 /,5X, 'RADIUS = ',E12.6,' CM', 

& /,SX, 'DTIME = • ,E12.6, 

S /,SX, 'HCONV = ' ,E12.6,/) 

NWRITE =TWRITE*UO/DTIME/H 
NTAPE=TTAPE^UO/DTIME/H 
C PRINT OUT INPUT INFORMATION 

NRITE(6,61 ) (STAR, 1 = 1, 90 ) ,KRUN ,TMAX,THRITE ,TTAPE ,NWRP 
61 FORMATl///,90Al,/,SX, 'KRUN =’,I2,/,5X, 

5 'TMAX =',F8.3,* SECONDS ' ,/SX , *TNRITE =',F8.3, 

I * SECONDS' ,/,SX, 'TTAPE =',F8.3,' SECONDS', 

6 /,5X,' NUMBER INTERVALS OF HRITING ON PAPER *, 15,/) 

C *** INITIALIZE VARIABLE FIELD 

DO 220 J=1,NJP1 
DO 220 I=1,NIP1 
DO 220 K=1,NKP1 
RODtI,J,K)=l. 

Rll ,J,K) = 1. 

RPDt I,J,K ) = 1. 

UO0(I,J,K)=0. 

UII,J,K1 = 0. 

UPD(I,J,KI=0. 

VOD( I ,J,K )=0. 

V(1,J,K) = 0, 

VPD(I,J,K ) = 0. 

Kl I,J,Kx ) = 0. 

K?D(I,J,K)=0. 

I.’ODI I ,J,K ) = 0. 

PCDl I ,J,K )=0. 

P( I,J,K )=C. 

PPD(I,J,K1=0. 
cut I ,J,K ) = 0. 

DV(I,J,K )=0. 

D’Xl I ,J,K )=0. 

SL’l I ,J,K )=0. 

SPl I,J,K 1 = 0. 

PP(I,J,K > = 0. 

AP(i.»U>K ^ = 0. 

AW( I,J,K 1=0. 

AE(I,J,K 1 = 0. 

Ar{lI,J,K)=0. 

AS(I,J,K)=0. 

AF(I,J,K)=0. 

AB( I,J,K )=0. 

SMP(I,J,K)=0. 

Sr'.PP(I,J,K )=0. 

VIS(I,J,K)=VISL 
COr^Dl I,J,K )=CONDO 
CPM(I,J,K)=1.0E0 



00065700 

00065800 

00065900 

OOObbOOO 

OOOoolOO 

000o6200 

000o6300 

00066A00 

00066500 

OOO660OO 

00066700 

00066800 

00066900 

00067000 

00067100 

00067200 

00067300 

00067900 

00067500 

00067600 

00067700 

0C067800 

00067900 

00068000 

00068100 

00066200 

00068300 

00068900 

OOOoSBOO 

00068600 

00068700 

00068800 

000o8900 

00069000 

00069100 

00060200 

C00o9300 

00069900 

000o9500 

000o9600 

00069700 

00069800 

00069900 

00070000 

00070100 

00070200 

00070300 

00070900 

00070500 

00070600 

00070700 

00070800 

00070900 

00071000 

00071100 
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T00( I,J,K l^l.OEO 
T(I,J,KI=TOO(I,J,K) 
TPD( I ,J,K )=TOD( 

COO( I ,J,K )=CO 
C(I,J,K)=COO(I,J,K) 
CPO( I,J,K )=COD(I,J,K) 
UHZZi I ,J,K )=0 
NOD( I,J>K)=0 
220 CONTINUE 



C DETERMINE THE POSITION OF HEAT SOURCE 

DO 300 1=2, NI 
DO 300 J=2,NJ 

C CHANGE TO RECTANGULAR COORDINATES 
XX=YC( J)*COS(XC(D) 

YY=YC( J)^tSIN(XCdJ) 

C CHECK TO SEE IF IN HS CONTROL VOLUME, IF SO SET NHS2=1 
IF (XX.LT.HSZll,l).On.XX.GT.KS2(l,2)) GOTO 310 
IF (YY.LT.HS2(2,l).OR.YY.GT.HSZC2,2)) GOTO 510 
NHSZ( I,J,16 ) = 1 
NHSZII,J,17)=1 

515 FORMAT ( 2X,10l <+X,I^+,2X,I^ ) ) 

GOTO 300 
510 CONTINUE 
500 COriTINUE 



C DEFINE THERMAL PROPERTIES OF DECK AND SOLID 

IF (NCHIP.EO.O) GOTO <^10 
00 ^02 N=1,NCHIP 
IB=ICHP3( N) 

IE=IB+NCHPI(N)-1 
JB=JCHPB(rn 
Jc=JB+NCHPJ(N)-l 
KB=KCHPB(N • 

KE=KB+NCHFKf N)-l 
00 405 I=IB,IE-1 
DO 405 J=JB,JE-1 
DO 405 K=KB,KE-1 
CONO( I , J ,K )=CONOO#CONS( N ) 

CPMlI,J,K)=CPO*CPS(NJ 
NCO(I,J,K J = 1 ' 

405 CONTirAJE 
402 COriTir^UE 
410 CONTINUE 



C *** FOR CONTINUING RUN, READ DATA FROM TAPE OR DISK 



00071200 

00071500 

00071400 

00071500 

00071600 

00071700 

00071800 

00071900 

00072000 

00072100 

00072200 

00072300 

00072400 

00072500 

00072600 

00072700 

00072800 

00072900 

00073000 

00073100 

00073200 

00073300 

00073400 

00073500 

00075600 

00075700 

00075800 

00073900 

00074000 

00074100 

00074200 

00074300 

00074400 

00074500 

00074600 

00074700 

00074800 

00074900 

00075000 

00075100 

00075200 

00075300 

00075400 

00075500 

00075600 

00075700 

00075800 

0C075900 

00076000 

00076100 

00076200 

00076300 

00076400 

00076500 

00076600 
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C 



C 



c 







00076700 




IF(KRUN .EQ. 1) GO TO 9997 


00076800 




GO TO 15 


00076900 


99<97 


READl8,Ef4D = 9998) 


00077000 


t TIME .NTMiXO ,TOD ,ROD ,UOD ,VOD ,WOO .POD ,CPM ,CONO .VIS .ORNET .ITERT . 


QCOR00077100 


SRT .PMl .PM2 .XX.XX.XX.XX.XX ,XX .N1 .NJ .NK ,NIP1 .NJPl ,NKP1 .NIMl .NJMl 


00077200 




i ,NKM1,>:C,YC,ZC,XS,Y5,Z5,DXXC,DYYC,DZ2C,DXXS,DYYS,D22S 


00077300 




GO TO 9997 


00077900 


9993 


COrJTINUE 


00077500 




REKIND 8 


00077600 




CLOSE (8) 


00077700 




WRITE(6,»)NTMAX0 


00077800 


15 


CONTINUE 


00077900 

00078000 

00078100 




DEFINE HEIGHT OF NODE POI^4TS AND COMPUTE HYDROSTATIC 


00078200 




EQUILIBRIUM DENSITY REQ(I,J,K) 


00078300 

00078900 

00078500 




DO 13 K=1,NKP1 


00078600 




DO 13 I=1,NIP1 


00078700 




CO 13 J=1,NJP1 


00078800 




DHY=YC( J J^SINf XC( I J )*SIN( ZC( K ) ) 


00078900 




HEIGHT( I>J,K ) = DHY 


00079000 


13 


CONTINUE 


00079100 

00079200 




DO 229 J=1,NJP1 


00079300 




DO 229 I=1,NIP1 


00079900 




DO 229 K=1,NKP1 


00079500 




AAAA = -BUOY*UGRT^HEIGHT( I , J ,K ) 


00079600 




REO(I,J,K)=EXP(AAAA) 


00079700 




IF(KRUN .NE . 0 ) GO TO 229 


00079800 




RP0( I , J »K J = REQ( I , J ,K J/TPD( I , J ,K ) 


00079900 




ROD(I,J,K i = RPD(I,J,K) 


00080000 




R{I,J,KI = RPD(I,J,K» 


00080100 


229 


CONTIf4UE 


00080200 

00080300 




INITIALIZE U,V,T,R,P FIELD 


00080900 

0OC8O500 




DO 210 K=1,NKP1 


00080600 




DO 210 J=1,NJP1 


00080700 




DO 210 I=1,NIP1 


00030800 




T(I,J,K)=TCD(I,J»K) 


00080900 




C(I,J,K)=COD(I,J,K) 


00031000 




R(I,J,K i = ROD(I,J,KJ 


00081100 




U(I,J,K)=UOD(I,J,K) 


00081200 




V(I,J,KJ=VODri,J,K) 


00081300 




K(I,J,K l=KOD(I,J,K) 


00081900 




PtI,J,K)=POD(I,J,K) 


00081500 


210 


C0NTir4UE 


00081600 

00081700 




FOLLOWING IS FOR DETERMINING THE THERMOCOUPLE POSITIONS 


00061800 

00081900 




DO 5000 N=l,NTHCO 


00082000 




DO 5001 I=1,NIP1 


00082100 
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o o 



IF (XC(I),LT.CX(NJ.AND.XC(Iil).GE.CX(NJ) GOTO 5002 

5001 CONTINUE 

5002 II=I 

DO 5003 J-1,NJP1 

IF (YC(J).LT.CY(N).AND.YC(J* *1).GE.CY(NJ) GOTO 500^t 

5003 CONTINUE 

5004 JJ=J 

DO 5005 K=1,NKP1 

IF (2C(K ).LT.C2(N).AND.2C(K+1).GE.C2(N) ) GOTO 5006 

5005 CONTINUE 

5006 KK=K 
NTH(N,1 ) = II 
NTH(N,2)=JJ 
NTH(N,3 )=KK 

5000 CONTINUE 



RETURN 

END 



SUBROUTINE CALVIS 

C *** *-?f*^****#*****#*****#***##*****#****#**************#******#*if»* 

* THIS SUBROUTINE CALCULATES THE TURBULEfJT VISCOSITY AND UPDATES* 

* THE VISCOSITY MATRIX * 

********->f**^*********-fc-iH^*-.^*******->t*^»-**********#************#***»***** 



00082200 

00082300 

00082400 

00082500 

000C2600 

00082700 

00032800 

00082900 

00083000 

00083100 

00083200 

00083300 

00033400 

00083500 

00083600 

00083700 

00083800 

00083900 

00084000 

00084100 

00084200 

00084300 

00084400 

00084500 

00084600 

00084700 

00084800 

00084900 

00085000 

00085100 

00085200 

00065300 

00085400 

000S5500 

00085600 



C0MM0N/R4/XC( 93 ) ,YC( «3 ) ,2C ( 93 ) ,XS( 93 ) ,YS( 93 ) ,2S< 93 ) , 

8 DXXCI 93 ) ,DYYC( 93 ) ,D22C( 93 ) ,DXXSI 93 ) ,DYYS( 93 ) ,D22S( 93 ) 

C0MM0N/BL7/NI >NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,KKM1 
8 ,NIP2 ,MJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,N3M1 ,KRUN ,NCHIP ,NJRA ,NWRP 

C0MM0N/BL14/HC0EF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QC0RRT,PM1 ,PM2000S5700 
C0M?'.0r^/BL16/ CONSTl,CONST2,CONST3,COrJST4,CONST6, NT, U0,H,UGRT, BUOY, 00085800 
8 CPO ,PRT , CONDO ,VIS0 ,RHOO ,HR ,TR ,TA ,DTEMP ,TKRITE ,TTAPE ,TMAX ,GC ,RAIR00085900 
COMMON/BL32/ T( 22 ,16 ,32 ) ,R( 22 ,16 ,32 ) ,P( 22 ,16 ,32 ) 00056000 

8 ,C I 22,16,32 I ,U( 22,lo,32 i,V( 22 , 16 ,32 ) ,W( 22 , 16 ,32 ) OOO80IOO 

C0MM0N/BL34/ HEIGHT! 22 ,lt) ,32 ) ,R£G( 22 , l6 ,32 ) , 00066200 

8 SMP( 22,10,32 ),SMPP( 22 , 16 ,32 ) ,PP( 22 , 16 ,32 ) , 00086300 

8 DU( 22,16,32 ) ,DV( 22, lo, 32 ),DW( 22,16,32 ) 00086400 

COMMO.N/BL3o/AP( 22 ,lo ,32 ) ,AE( 22 , lo , 32 J , AH( 22 ,16 ,32 ) , AN( 22,16,32), 00086500 

8 AS! 22,16,32 ),AF( 22 , 16 ,32 ) , AB( 22,16,32), 00086600 

8 SP( 22,16,32),SU( 22 ,16 ,32 ) ,RI ( 22 , 16 ,32 ) O00S6700 

COMMON/BL37/ .VIS( 22 , 16 ,32 ) ,COf^D( 22 ,lo,32 ) ,NOD( 22 , 16 ,32 ) ,RWALL( 579 )00036800 



8 



,CPM( 22,16 ,32 ) ,H3Z( 3,2) ,NHS2( 22, l6 ,32 ) ,RESORM( 93 ) 



CALCULATE LOCAL SHEAR AND VISCOSITY VIS(I,J,K) 
SPECIFY LOCAL TURBULENT LENGTH SCALES SMPP(I,J,K) 
DO 611 K=2,NK 



00086900 

00087000 

00087100 

00087200 

00087300 

00087400 

00087500 

00087600 
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KP2=K+2 




00087700 




KP1=K+1 




00087800 




KM1=K-1 




C00o790u 




KM2=K-2 




00088000 




DO 611 J=2,NJ 




00083100 




JP2=J+2 




00088200 




JP1=J+1 




00088300 




JM1=J-1 




00088400 




JM2=J-2 




00088500 




DO 611 1=2, NI 




00088600 




IP2=I+2 




00088700 




IP1=I+1 




00088800 




IM1=I-1 




00088900 




IM2=I-2 




00089000 




IF tI.EQ,2) IM2=NIM1 




00089100 




IF ri.EQ.NI ) IP2=3 




00089200 




IF (NOD(I,J,K).EQ.l) GOTO 611 




00089300 








00089400 


c 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 




00089500 








00089600 




DXP1=XL(IP1,J,K,0,0) 




00089700 




DXI =XL(I ,J,K,0,0) 




00089800 




DXuMl=XL(IMl,J,K,0,0) 




00039900 








0009C000 




DYP1=YL1I,JP1,K,0,0) 




00090100 




DYJ =YL(I,J ,K,0,0) 




00090200 




DYM1=YL(I,JM1,K,0,0 ) 




00090300 








00090400 




D2P1=2L( I,J,KP1,0,0) 




00090500 




D2K =2L(I,J,K ,0,0) 




00090600 




D2ril=2L( I,J,KM1,0,0) 




00090700 








00090800 


cc 


IF (J.EQ.2) DYS=DYS/2. 




00090900 


cc 


IF (K,EQ.2) D2B=D23/2» 




00091000 




IF (J.NE.NJ) GOTO 101 




00091100 




JP2=JP1 




00091200 




DYN=DYN/2 . 




00091300 


101 


IF (K.NE.Nrv) GOTO 102 




00091400 




KP2=KP1 




00091500 




D2F=D2F/2. 




00091600 


102 


COrJTINUE 




000«1700 








000<^1800 


c *** 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 


FOR T 


00091900 








00092000 




DXE =XL( IP1,J,K,0,1 ) 




00092100 




DXW =XL(I ,J,K,0,1) 




00092200 








00092300 




DYN =YL(I,JPr,K,0,2) 




00092400 




DYS =YL(I,J ,K,0,2) 




00092500 








00092600 




D2F =2L(I,J,KP1,0,3) 




00092700 




D23 =2L(I,J,K ,0,3) 




00092800 








00092900 


c 


CACULATE DV/DX,D2V/DX2,DU/DX,D2U/DX2,DW/DX AND 


D2K/DX2 


00093000 








00093100 
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DUDX=tU(IPl,J,K )-Uri ,J,K ) )/DXl 
DUDXW=0.5^(U(IP1,J,K }“U! ) )/DXW 
DUDXE = 0.5*tU( IP2,J,K )-U( I ,J,K ) J/DXE 
DZUDX2 = ( DUDXE-DUDXW J/DXI 



DVDXW=0 . 5*( V( I , JPl ,K JWC I , J ,K )-V( IMl , JPl ,K )-V( IMl , J,K J )/DXW 
DVDXE = 0.5*t V( IP1,JP1,K )*W{ IPI , J ,K J -V( I , JPl ,K )-V( I , J ,K ) J/DXE 
DVDX=0 .5*( DVDXE + DVDXW J 
D2VDX2= ( DVDXE-DVDXW J/DXI 



DWDXH=0 ,5*( W( I , J ,KP1 )+W( I , J ,K J-W( IMl , J ,KP1 J-H( IMl , J,K J J/DXH 
DWDXE=0.5*(W(IP1,J,KP1 ) ♦Wt IPl , J ,K J-H( I , J ,KP1 J-W( I , J ,K J J/DXE 
DWDX=0.5^t DWDXE+DWDXW J 
D2KDX2= ( DWDXE-DWDXW J/DXI 



602 CONTir>IUE 

C *** CALCULATE DU/DY ,D2U/DY2 ,DV/DY ,D2V/DY2 ,DW/DY AND D2H/DY2 



DVDY = ( V( I , JPl ,K J-V( I , J ,K J J/DYJ 
DVDYS=0 .5^1 V( I , JPl ,K J-V( I , JMl ,K J J/DYS 
DVDYN=0.5*< V(I ,JP2,K J-V( I,J ,K J J/DYN 
D2VDY2 = ( DVDYN-DVDYS J/DYJ 



DUDYS=0.5*(U(IP1,J,K J+U(I,J,K J-U( IPl , JMl ,K J-U( I , JMl ,K ) J/DYS 
DUDYN=0.5*(U(IP1,JP1,K J*U(I,JP1,K J-U(IP1,J,K J-U(I,J,KJ J/DYN 
DUDY = 0 .5*( DUOYN+DUDYS J 
D2UDY2= ( DUDYN-DUDYS J/DYJ 



DNDYS=0 . 5*( H( I , J ,KP1 J+W( I , J ,K )-W( I , JMl ,KP1 J-W( I , JMl ,K J J/DYS 
DWDYN=0 .5^( W( I , JPl ,KP1 J+Wf I , JP1,K )-W( I , J,KP1 J-W( I ,J,K J J/DYN 
DWDY=0 DKDYN+DWDVS J 
D2WDY2= ( DWOYN-DWDYS J/DYJ 

606 CONTINTJE 

C *** CALCULATE DU/D2,D2U/D22 ,DV/D2,D2V/D22,DW/D2 AND D2W/D22 



DKD2=I W( I > J,KP1 J-KI I , J ,K J J/DZK 
DWD2F=0.5*( W(1,J,KP2 J-WI I,J,K J J/D2F 
DHD2B=0 .5^1 Wr I , J ,KP1 )-W( I , J,KM1 J J/D2B 
D2WD22 = C DHD2F-DWDZB J/D2K 



DVD2B = 0 . V( I , JPl ,K J*V( I , J ,K J-V( I , JPl ,KM1 J-V( I , J ,KM1 J J/DZB 
DVDZF = 0.5*( V(I,JP1,KP1 J*V(I,J,KP1 J-V( I , JPl ,K )-V( I , J,K J J/D2F 
DVD2=0 .5*( DVDZF + DVD2B J 



00093200 
00093300 
00093<+00 
00093500 
000°3600 
00093700 
00093800 
00093900 
0009^000 
0009^100 
0009h 200 
0009^300 
OOO 94400 
00094500 
00094600 
00094700 
00094800 
00094900 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
0009ol00 
00096200 
00096300 
00096400 
00096500 
OC096600 
00096700 
00096800 
00096900 
00097000 
00097100 
000<^7200 
00097300 
00097400 
00097500 
00097600 
00097700 
00097800 
00097900 
00093000 
00093100 
00098200 
00098300 
00098400 
00098500 
00098600 
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D2VDZ2= ( DVDZF-DVDZB l/DZK 



DUDZB=0.5*( U( IPl , J ,K )+U( I , J ,K )-U( IPl , J ,KM1 )-W( I , J,KM1 ) )/DZB 
DUDZF=0.5*(U(IP1,J,KP1 I+U(I,J,KP1 )-U( IPl , J ,K )-Ul I , J ,K ) )/DZF 
DUDZ = 0.5-^( OUDZF+DUDZB ) 

D2UDZ2= ( DUDZF-DUDZB J/DZh; 

DRDX = ( (R(IP1,J,K)-REQ(IP1,J,K) )-(R(IMl,J,K )-REQ( IMl , J ,K ) ) )/ 
i (DXE+DXW) 

DRDY = ( (R( I,JP1,K)-REQ(I,JP1,K) )-(R(I,JMl,K)-REQ(I,JMl,K) ) J/ 

& (DYN+DYSJ 

DRDZ = ( (R(I,J,KP1 )-REQ(I,J,KPl ) )-(R(I,J,KMl )*REQ( I , J ,KH1 ) ) )/ 

5 (DZF+DZB) 

DRDGA=SIN(ZC(K ) )*(SIN(XC(I ) )*DRDY+COS( XC( I ))*DRDX) 

I +COS(ZC(K))*DRD2 

C *** CALCULATE RICHARDSON NUMBER 

STRAIN=DUDY**2+DVDX**2+DWDX^*2+DVDZ**2+DWDY**2+DUDZ**2 

DD02 = SQRT( DUDY^DUDY + DUDX*DUDX+DUDZ*DUDZ + DVDY*DVDY+DVDX^^DVDX + 

6 DVDZ^DVDZ+DWDX*DWDX+DWDY^DWDY+DWDZ*DWDZ) 

IF(OD02.EQ.O, )GO TO 600 

C CALCULATE TURBULENT LENGTH SCALE SMPP(I,J) 

SMP123=SQRT( ( ( U( IPl , J >K )+U( I , J ,K ) 1*0 .5 l**2 + ( ( V( I , JPl ,K )+V(I,J; 
& 0.5 l**2 + ( ( W( I,J,KP1 )+W(I ,J,K ) )*0.5 )**2 )/DD02 

SM?P12 = DCC2 /SQRT( D2UDX2*D2UDX2-»-D2UDY2*D2UDY2 
£ ♦D2UDZ2*D2U0Z2+D2VDX2*D2VDX2+D2VDY2*D2VDY24D2VDZ2*D2VDZ2+ 

£ D2^^DZ2*D2W0Z2 + D2KDX2*D2WDX2+D2WDY2*D2HDY2 ) 

SM??( I , J ,K J=CNT*( SMP12S+SMPP12 )* .5 
RI ( I , J,K J = -BUOY*DRDGA/( Rl I , J,K )*STRAIN ) 

ABRIPR=ABTURB+RI( I ,J,K )/PRT 



K) 



.LT. 
• EQ. 



GO 

GO 



TO 600 
TO 613 



600 



IF( ABRIFR 
IFt ABRIPR 
GO TO 610 
V:S(I,J,K)=VISL 
GO TO 611 

615 VIS(I,J,K)=VISMAX 
GO TO 611 

610 VIS( I , J ,K l=VISL+R( I , J ,K )*SMPP( I , J ,K )*SMPP( I , J ,K )*SQRT( STRAIN )/ 

& (BTURB*ABRIPR ) 

IF(V:sa,J,K) .GT. VISMAX) VISd ,J,K )=VISMAX 

611 CONTINUE 



DC 110 I=l,NrPl 
DC 110 J=1,NJP1 
VIS( I , J ,NKP1 )=VIS( I , J ,NK ) 
VIS(I,J,1 )=VIS(I,J,2 ) 
110 COfiTINUE 



DO 120 J=1,NJP1 
DO 120 K=1,NKP1 



00098700 

00098800 

000<>8900 

00099000 

0009^100 

000^9200 

00099500 

00099A00 

00099500 

00099600 

000«>9700 

00099800 

00099900 

00100000 

00100100 

00100200 

00100300 

OOlOOAOO 

00100500 

00100600 

00100700 

00100800 

00100900 

00101000 

00101100 

00101200 

)*00101300 

OOlOlAOO 

00101500 

00101600 

00101700 

00101800 

00101900 

00102000 

00102100 

00102200 

00102300 

00102900 

00102500 

00102600 

00102700 

00102800 

00102900 

00103000 

00103100 

00103200 

00103300 

00103900 

00103500 

00103600 

00105700 

00103800 

00105900 

00109000 

00109100 



139 



o o 



VIS(NIP1,J,K )=VIS( 2,J,K 1 
Visa ,J,K)=VIS(NI,J,K) 
120 corrriNUE 



DO 130 K=1*NKP1 
DO 130 I=1,NIP1 
VI3( I ,NJP1 ,K i=VIS( I ,NJ ,K ) 
Visa, 2 ,K)=visa,3 ,k) 
VIS(I,1 ,K J=VIS(I,2 
CONTINUE 



,K) 



130 



135 



1*^0 



DO 135 K=l,16 

KK=NKP1-K 

DO 135 I=1,NIP1 

DO 135 J=1,NJP1 

VIS(I,J,KK)=VIS(I,J,K) 

CONTINUE 

DO 1*^0 I = 1,NIP1 

DO 140 J=1,NJP1 

DO 140 K=1,NKP1 

IF (NOD(I,J,K).EQa ) GOTO 140 

CONDd ,J,K )=VIS(I ,J,K i/PRT 

CONTINUE 

RETURN 

END 



00104200 

00104300 

00104400 

00104500 

00104600 

00104700 

00104800 

00104810 

00104900 

00105000 

00105100 

00105110 

00105120 

00105130 

00105140 

00105150 

00105160 

00105170 

00105200 

00105300 

00105400 

00105500 

00105600 

00105700 

00105800 

00105900 

00106000 

00106100 

00106200 

00106300 

00106400 

00106500 

00106600 

00106700 

00106800 

00106900 

00107000 

00107100 

00107200 

00107300 



*^<4 **'^<-***********-ff-*****>'**^f**i<'*^*****iH^*********##**#*********#*** 

SUBROUTINE CALT 

C *** *^->^***^^**^^^******************>*************^******^HHt******* 
C0MM0N/R4/XC( 93 ) ,YC( 93 ) ,2Cf 93 ) ,XS( °3 ),YS( «3 ),2S( 93 ) , 

1 DX>:C( 93 ) ,DYYC( 95 ) ,D2ZC( 93 ) ,DXXS( 93 ) ,DYYS( 93 ) ,DZ2S( 93 ) 
C0MM0N/BL1/DX,DY ,D2,V0L,DTIME ,VOLDT ,THOT ,TCOOL ,PI ,Q,'5R 
C0Mtl0N/BL7/fiI ,^aPl ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,f>IKMl 

S ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,N3,N3P1,N3M1,KRUN,NCHIP,NJRA,NWRP 
C0NN0N/BL12/ NWRITE ,frTAPE ,NTMAXC ,NTREAL ,TIME ,SORSUM ,ITER 
COMMOrj/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,PM200107400 
COMMON/BLlb/ C0NSTl,C0NST2,C0NST3,C0liST4,C0N3T6, NT, U0,H,UGRT, BUOY, 00107500 

5 CP0,PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEMP,TKRITE ,TTAPE , TMAX ,GC , RAIR00107600 

COnNON/BL22/ICHP3( 10 ) ,NCHPI ( 10 ) , JCHPB( 10 I ,NCHPJ( 10 ) ,KCHPB( 10 ) , 00107700 

6 NCHPK( 10 1 ,TCH?( 10 » ,CPS( 10 ) ,CONS( ID ) ,WFAN{ 10 ) 00107800 

C0MM0N/BL31/ TOD( 22,16,32 l,ROD( 22,16,32 ),PODl 22,16,32 ) 00107900 

t ,CODl 22,16,32 ),UOD( 22 , lb , 32 ) ,VOD( 22,16,32 J ,WOD( 22,16,32) 00108000 

C0MM0N/BL32/ T( 22,16,32 ),R( 22 , 16 ,32 ) ,P( 22 , 16 , 32 ) 00108100 

2 ,C( 22,16,32 ),U( 22,16,32 I, V( 22 , 16 ,32 ) ,W{ 22 ,16 ,32 ) 00103200 

COMMON/BL33/ TPD( 22 ,1b ,32 ) ,RPD( 22 , 16 ,32 ) , PPD ( 22 , 16 ,32 ) 00108300 

S ,CPD( 22,16,32 ),UPD( 22 , 16 ,32 ) , VPD( 22 , 16 ,32 ) ,HPD( 22,16,32) 00108400 

C0MM0N/BL34/ HEIGHT( 22 ,16 ,32 ) , REQ( 22 , 16 ,32 ) , 00108500 

i SMP( 22,16,32 J ,SMPP( 22 , 16 ,32 ) ,PP( 22,16,32), 00108600 

S DU( 22,16,32 ),DV( 22 , 16 ,32 ) ,DH( 22 , 16 ,32 ) 00108700 

C0MM0N/BL36/AP( 22,16,32 ),AE( 22,16,32 ),AW( 22,16,32 ),AN( 22,16,32), 00108800 



140 



& A3( 22,16,32: i,AF( 22 , 16 , 32 ) , AB( 22,16,32 ), 

5 SP( 22,16,32 ),SU( 22,lo,32 I ,RI ( 22 , lb ,32 ) 

COMMON/BL37/VISI 22 ,1b, 32 J ,CONO( 22,lo ,32 ) ,MOD( 22,16,32 ) ,RWALL( 57<» ) 

6 ,CPM( 22,16,32 i,HS2( 3,2 J,NH32( 22 , lo ,32 ) ,RESORM( 93 ) 

C *** CALCULATE COEFFICIENTS 

DO 100 K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO 100 J=2,NJ 

JP2=J+2 

JP1=J+1 

jrii=j-i 

JM2=J-2 

DO 100 1 = 2, NI 

IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF (I.EQ.2) IM2=NIM1 
IF (I.EQ.NI) IP2=3 

C CENTRAL LENGTH OF THE TEMPERTURE CONTROL VOLUME 

DXP1=XL(IP1,J,K,0,0) 

DXI =XL(I ,J,K,0,0) 

DXM1=XL(IM1,J,K,0,0) 

DYP1=YL(I,JP1,K,0,0) 

DYJ =YL( I,J ,K,0,0) 

DYM1=YL(I,JM1,K,0,0) 

D2Pl=2LiI,J,KPl,0,0) 

D2K =2L(I,J,K ,0,0) 

DZm=2L(I,J,KMl,0,0) 

C SURFACE LENGTH Or THE COfTTROL VOLUME 

DXN=XL( I,JP1,K,0,2 ) 

D>:S=XL(I,J ,K,0,2) 

DXF=XL(I,J,KP1,0,3) 

DXB=XL(X,J,K ,0,3) 

DYF=YL( I,J,KP1,0,3 ) 

DYB=YL(I,J,K ■ ,0,3) 

DYE=YL( IP1,J,K,0,1 ) 

DYW=YL( I ,J,K,0,1 ) 

D2E=ZL( IP1,J,K,0,1) 

D2M=2L( I ,J,K,0,1) 

D2N=2L(I,JP1,K,0,2) 

DZS=2L(I,J ,K,0,2) 



00108900 

00109000 

00109100 

00109200 

0010^300 

00109H00 

00109500 

00109600 

00109700 

00109800 

00109900 

00110000 

00110100 

00110200 

00110300 

00110900 

00110500 

00110600 

00110700 

00110800 

00110900 

00111000 

00111100 

00111200 

00111300 

00111900 

00111500 

00111600 

00111700 

0C111800 

00111900 

00112000 

00112100 

00112200 

00112300 

00112900 

00112500 

00112600 

00112700 

00112800 

00112900 

00113000 

00113100 

00113200 

00113300 

00113900 

00113500 

00113600 

00113700 

00113800 

00113900 

00119000 

00119100 

00119200 

00119300 
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C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 

DXEE=XH IP2,J,K,0,1 ) 

DXE =XL(IP1,J»K,0,1 ) 

DXN =XL1I ,J,K,0,1 j 
DXKW=XUIM1,J,K,0,1) 

DYNN=YL(I,JP2,K,0,2) 

DYN =YLtI,JPl,K,0,2 ) 

DYS =YLtI,J ,K,0,2 ) 

DYSS=YHI,JM1,K,0,2) 

D2FF=2L(I,J,KP2,0,5) 

D2F =2UI,J,KP1,0,3) 

D2B =2LtI,J,K ,0,3) 

D2BB=2L( I,J,KM1,0,3) 

C DEFINE THE AREA OF THE CONTROL VOLUME 

DXYF=DXF*DYF 

DXYB=DXB^DYB 

DY2E=DYE^D2E 

DY2N=DYH^'D2N 

D2XN=D2N^DXN 

D2XS=D2S^DXS 

V0L=DXI^DYJ^D2K 

VOLDT=VOL/DTIME 

2X0YN=D2XN/DYN 

2X0YS=D2XS/DYS 

XY02F=DXYF/D2F 

XY02B=DXYB/D2B 

Y20XE=DY2E/DXE 

Y20XW=DY2N/DXW 

GN=( Rl I ,J ,K )*DYP1 + R1 1 , JPl ,K )^DYJ )/( DYPl + DYJ ) 

GS=( R 1 1 , J ,K )^DYM1+R( I ,JM1 ,K )^DYJ )/[ DYMl + DYJ ) 

GE = (RII,J,K)*DXP1+R1IP1,J,K J*DXI J/IDXPUDXI ) 

GW = ( Rl I , J ,K )*DXM1*R( IMl , J ,K )^DXI )/l DXI11 + DXI ) 

GF = l Rl I ,J,K )^D2P1 + Rl I,J,KP1 )*02K )/l D2P1 + D2K ) 

GB=l Rl I , J,K )^D2M1+Rl I , J,KM1 )^D2K )/l D2M1 + D2K ) 

CN=GN*Vl I , JPl ,K )*D2XN 
CS=GS*VII,J ,K)^D2XS 
CE=GE^Ul IPl , J ,K )*DY2E 
CW=GH^U( I ,'J,K )*DY2W 
CF=GF*WII,J,KP 1 )*DXYF 
CB=GB*WII,J,K )*DXYB 



C0NDN=l./l I 1. /CONDI I , J,K )*DYJ*1 ./CONDI I , JPl ,K )^fDYPl )/l DYPl + DYJ ) ) 
CONDS=l./l ( l./CONDl I,J,K )*DYJ + 1 ./CONDI I , JMl ,K )*DYM1 )/l DYMl + DYJ ) ) 
CONDE = l ./( ( l./CONDl I , J,K )*DXI + 1. /CONDI IPl , J,K )*DXP1 )/l DXPl+DXI ) ) 



00114^00 

00114500 

00114600 

00114700 

00114800 

00114900 

00115000 

00115100 

00115200 

00115300 

00115400 

00115500 

00115600 

00115700 

00115800 

00115900 

00116000 

00116100 

00116200 

00116300 

00116400 

00116500 

00116600 

00116700 

00116800 

00116900 

00117000 

00117100 

00117200 

00117300 

00117400 

00117500 

00117600 

00117700 

00117800 

00117900 

00118000 

00113100 

00118200 

C0118300 

00118400 

00118500 

OCII 60 OO 

00118700 

ODII 60 OO 

00118900 

00119000 

0011^100 

00119200 

00119300 

00119400 

00119500 

00119600 

00119700 

00119800 



142 



CONDW=l./( ( l./COMD( I ,J,K )*DXI +1 . /CON’D ( )*DXM1 )/( DXMl+DXI ) ) 

CONDF = l./( ( 1. /CON'D ( I ,J,K 1*D2K4l . /COND ( I ,J,KP1 I*D2P1 )/( D2P1+D2K ) ) 
CONDB = l./( ( l./COND( I,J,K )*D2K + 1 . /COND( I ,J,KM1 )^D2M1 )/( D2m + DZK ) ) 



C0NDrU=2X0YN^C0NDN 
C0NDS1=2X0YS*C0NDS 
C0r4DEl=Y20XE»C0NDE 
CONDIU =Y20XW*C0NDW 
C0NDF1=XY02F*C0NDF 
C0NCB1=XY02B*C0NDB 



CEP = ( ABS( CE )+CE )*DXPl*DXI/( DXE*( DXE + DXH J )/8. 

CEM = ( ABS( CE )-CE )*DXPl*DXI/( DXE*( DXE+DXEE ) )/8. 

CWP=( ABS( CW )+CW )*DXMl^DXI/( DXH*( DXW+DXWW ) )/8. 

CWM=( ABS( CW )-CW )*DXNl*DXI/( DXW*( DXW+DXE ) )/8. 

CNP=( ABS( CN )+CN )*DYPl*DYJ/( DYN*( DYN+DYS ) )/8. 

CNM=( ABS( CN )-CN )*DYPl*DYJ/( DYN*( DYN + DYNN ) )/8. 

CSP = ( ABS( CS HCS )*DYMl*DYJ/( DYS*( DYS + DYSS ) )/8. 

CSM = ( A3S( CS )-CS )*DYMl*DYJ/( DYS*( DYS + DYN ) )/8 . 

CFP = ( ABS( CF )+CF )*DZPl*D2K/( D2F*( DZF + D2B ) )/8. 

CFN=( A5S(CF )-CF l*DZPl^D2K/( DZF^( D2F+D2FF ) )/8. 

CBP = ( ABS( CB J + CB J^DZMl*D2>;/( D2B*( DZB+D2BB ) )/8. 

CBM = ( ABS( CB )-CB J«D2Hl*DZK/( D2B*( DZB + D2F ) )/8. 

AE( I ,J ,K ) = - .5^DXI/DXE*CE+CEP + CEM*( 1 . +DXE/DXEE )+CWM*DXW/DXE 
AK( I , J ,K )= . 5*DXI/DXW^CW+CHM+CWP*( 1 . +DXm/DXWN ) +CEP^DXE/DXH 
AN( I ,J,K ) = -.5*DYJ/DYM^CN+CNP + CNM*( 1 . +DYN/DYNN UCSM^DYS/DYN 
ASl I,J,K)= .5*DYJ/DYS*CS+CSM+CSP-»f( l.+DYS/DYSS ) +CNP*DYN/DYS 
AF( I ,J ,K 1 = - .5*D2K/D2F*CF+CFP+CFM*( 1 . +DZF/D2FF ) +CBM*DZB/D2F 
AB( I , J,K J= .5^DZK/DZB*CB+CBM+CBP*( 1 . +DZB/DZBB I +CFP*D2F/DZB 

801 AEE=-CEM^DXE/DXEE 
AEER=AEE->^TPD( IPE , J ,K )^CPM( IP2 , J ,K ) 

802 COr4TINUE 

803 AHNr-CWP^^DXW/DXWW 
AXXR=AWW*T?D( IM2 , J ,K 1*CPM( IM2 , J ,K ) 

604 CONTINUE 

IF IJ.LT.NJ) GOTO 805 
ANN=0. 

Ar4r4R = 0. 

GOTO 806 

805 Ar4N = -CNM*DYN/DYNN 
Afn4R=ANN*^TPD( I,JP2,K )*CPM( I , JP2 ,K ) 

806 COr4TIf4UE 

IF (J.GT.2) GOTO 807 
ASS=0. 

AS3R=0. 

GOTO 808 

807 ASS=-CSP*DYS/DYSS 



00119900 

00120000 

00120100 

00120200 

00120300 

00120400 

00120500 

00120600 

00120700 

00120800 

00120900 

00123110 

00123120 

00123130 

00123140 

00123150 

00123160 

00123170 

00123180 

00123190 

00123191 

00123192 

00123193 

00123194 

00123195 

00123196 

00123197 

00123198 

00123199 

00123200 

00123201 

00123202 

00123203 

00123204 

00123210 

00123300 

00123400 

00123500 

00123600 

00123700 

00123800 

00123900 

00124000 

00124100 

00124200 

00124300 

00124400 

00124500 

00124600 

00124700 

00124800 

00124900 

00125000 

00126100 

00125200 
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ASSR=ASS^TPD( I , JM2 ,K )*CPM( I , JM2 ,K ) 
803 CONTINUE 



809 

810 



IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 

AFF=-CFM^D2F/DZFF 

AFFR=AFF*TPD( I , J ,KP2 )*CPM( I , J ,KP2 ) 
CONTir>IUE 



IF (K.GT.2) GOTO 811 
ABB=0. 



ABBR=0. 

GOTO 812 

811 ABB=-CBP*0ZB/D2BB 
ABBR=ABB^tTPD(I,J,KM2 )*CPM( I , J ,KM2 ) 

812 CONTINUE 



C *** MODIFICATION FOR DECK BOUNDARIES 

900 CONTINUE 

IF (NOD(IMl,J,K).EQ.O) GOTO 901 

ANW=0.0 

AWNR=0.0 

901 CONTINUE 

IF (NOD(IP1,J,K).EQ.O) GOTO 902 

AEE=0.0 

AEER=0.0 

902 CONTINUE 

IF (NOj(I,JM1,K).EQ.O) goto 903 

ASS=0.0 

AS5R=0.0 

903 CONTINUE 

IF (NOD( I,JP1,K).EQ.0) GOTO 909 
ANN =0.0 
ANfJR = 0.0 

909 CONTINUE 

IF (NCD(I,J,Km).EQ.O) GOTO 905 

ABB=0.0 

ABBR=0.0 

905 CONTiriUE 

IF (NOD(I,J,KP1).EQ.O) GOTO 906 

AFF=0.0 

AFFR=0.0 



00125300 

00125900 

00125500 

00125600 

00125700 

00125800 

00125900 

00126000 

00126100 

00126200 

00126300 

00126900 

00126500 

00126600 

00126700 

00126800 

00126900 

00127000 

00127100 

00127200 

00127300 

00127900 

00127500 

00127600 

00127700 

00127800 

00127900 

00123000 

00128100 

00128200 

00128300 

00128900 

00128500 

00128600 

00128700 

00128300 

00128900 

00129000 

00129100 

00129200 

00129300 

00129900 

00129500 

00129600 

00129700 

00129800 

00129900 

00130000 

00130100 

0013C200 

00130300 

00130900 

00130500 

00130600 

00130700 



144 





906 


CONTINUE 


001S0800 








00130900 


c 




00131000 


c 




00131100 








00131200 






API I ,J,K ) = ( AEII ,J,K )iAW(I ,J,K UANl I ,J,K ) + AS( I ,J,K ) 


00131300 




£ *AF( I ,J,K UAB( I ,J,K )*AEE4AWWiANrUASS+AFF*ABB 1*CPM( I 


,J,K )00131900 




& +CONDEliCONDWl + CONDNliCONDSl*CONDFl+COrJDBl 


00131500 








00131600 






AE (I , J ,K UAE( I , J ,K )*CPM( IPl , J ,K )+CONDEl 


00131700 






AK( I ,J,K l=AW( I ,J,K )*CPM( IM1,J,K J^CONDHl 


00131800 






AN(I,J,K )=AN(I,J,K 1*CPM(I,JP1,K UCONDNl 


00131900 






AS( I , J ,K )=AS( I , J ,K )*CPM( I , JMl ,K )*COrJDSl 


00132000 






AF( I,J,K )=AF( I,J,K )*CPM(I>J,KP1 )iCONDFl 


00132100 






AB( I , J ,K )=AB( I , J ,K )^CPM( I , J ,KM1 )+CONDBl 


00132200 








00132300 






SP( I , J ,K 1 = -ROD( I , J ,K )*VOLDT^CPM( I , J ,K ) 


00132900 






SU( I , J ,K )= ROD( I , J ,K )*VOLDT*TOD( I , J ,K )*CPM( I , J ,K ) 


00132500 






SU( I ,J,K )=SU( I >J,K )4AEERiAWJs|R*ANNR+ASSR+AFFR + ABBR 


00132600 




100 


CONTIh^UE 


00132700 








00132800 


c 


*** 


TAKE CARE OF B.C. THRU AN ,AS>AE ,AW,AF ,AB ,SP AND SU 


00132900 








00133000 


c 


*** 


RADIUS DIRECTION 


00133100 








00133200 






DO 500 1=2, NI 


00133300 






DO 500 K=2,NK 


00133900 






SP(I,2>K )=SP(I,2,K)iAS( I,2,K) 


00133500 


cc 


$P(I ,2,K)=SP(I,2,K )-AS(I,2,K ) 


00133600 


cc 


SU(I,2,K)=SU(I,2,K W2.0^AS(I,2,K )*TPD(I,1,K) 


00133700 






SP( I ,NJ ,K J=SP( I ,NJ ,K )-ANl I ,NJ ,K ) 


00133800 






SU( I ,NJ ,K )=SU( I ,NJ ,K ) + 2 . «TPD( I ,NJP1 ,K )»^AN( I ,NJ,K ) 


00133<^00 






AS(I,2,K)=0. 


00139000 






AN(I,t4J,K)=0. 


00139100 




500 


CONTINUE 


00139200 








00139300 


c 


**# 


CYLIC CONDITIONS 


00139900 








00139500 






DO 600 J=2,NJ 


00139600 






DO 600 K=2,NK 


00139700 






SU(2 ,J,K)=SU12 ,J,K)4AW(2 ,J,K)*TU ,J,K) 


00139800 






SUl NI , J ,K )=SUI NI , J ,K )*AE ( NI , J ,K 1*T( NIPl , J ,K ) 


00139<>00 






AN(2 ,J,K)=0.0 


00135000 






AE(NI,J,K)=0.0 


00135100 




600 


corair^uE 


00135200 








00135300 


c 


-if** 


END OF SPHERE 


00135900 








00135500 






DO 700 1=2, NI 


00135o00 






DO 700 J=2,NJ 


00135700 






SP(I,J,2 l=SP(I,J,2)*AB(I,J,2) 


00135800 






SP( I , J ,NK )=SP( I , J ,NK )4AF(I , J ,NK ) 


00135900 






ABl I,J,2 )=0. 


00136000 






AF(I,J,NK )=0, 


00136100 




700 


CONTINUE 


00136200 
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00156500 








00156400 


r 




ASSEMBLE COEFFICIEhTTS AfiD SOLVE DIFFERENCE EQUATIONS 


00156500 








00156600 






DO 500 K=2,NK 


00156700 






DO 500 J=2,NJ 


00156800 






DO 500 1=2, NI 


00156900 






API I,J,K)=APII,J,K)-SP(I,J,K) 


00157000 




o 

o 


CONTINUE 


00157100 








00157200 








00157500 








00157400 


C 


*** 


VOLUME HEAT SOURCE INPUT 


00157500 








00157600 






VOLT=0.0 


00157700 






DO 115 1=2, NI 


00157800 






DO 115 J=2,NJ 


00157900 






DO 115 K=16,17 


00158000 






IF INHSZ1I,J,K).EQ.0) GOTO 115 


00158100 






DXI =XL(I ,J,K,0,0) 


00158200 






DYJ =YL(I,J ,K,0,0) 


00158500 






DZK =ZUI,J,K ,0,0) 


00158400 






VOL=DXI^DYJ*DZK*H*H*H 


00158500 






VOLT=VOLT+VOL 


00158600 




115 


CONTINUE 


00158700 








00158800 






DO 111 1=2, NI 


00158900 






DO 111 J=2,NJ 


00159000 






DO 111 K=lb,17 


00159100 






IF INHSZC I,J,K).EQ.O) GOTO 111 


00159200 






DXI =XL(I ,J,K,0,0) 


00159500 






DYJ =YUI,J ,K,0,0) 


00159400 






DZK =ZL(I,J,K ,0,0) 


00159500 






QCO=O^K/( U0*CP0^RH00^TA ) 


00159600 






VOL = DXI-^DYJ^DZK 


00159700 






SU( I , J ,K )=SU( I , J ,K 1+V0L*Q0Q/V0LT 


00159800 




111 


COrJTINUc 


00159900 








00140000 








00140100 


C 




RADIATION INTO THE HALL 


00140200 








00140500 






DO 510 K=5,NKM1 


00140400 






DO 510 1=2, NI 


00140500 






DXN =XL( I ,NJRA,K,0,2 ) 


00140501 






DZN =ZL(I,NJRA,K ,0,2) 


00140505 






D2XN=DZN^DXr4 


00140504 






II = (K-5 )*INI-1 ) + I-l 


00140600 






SU( I ,NJRA,K)=SU1 I ,NJRA,K )-RHALLJ II )*DZXN 


00140700 




510 


CONTINUE 


00140800 








00140900 


c 




END OF RADIATION 


00141000 








00141100 


c 




SOLVE FOR T 


00141200 








00141500 






CALL TRID ( 2,2,2, NI,NJ,NK,T) 


00141400 



146 



o o 



C **** RESET TEMPERATURE AT R=0.0 AND END OF SPHERE 

DO 81 K=1,NKP1 
AVT=0.0 
DO 82 1=2, NI 
AVT=AVT+(T(I,2,K)/NIM1 ) 

82 COfJTINUE 

DO 85 I=1,NIP1 
T(I,1,K) = AVT 
85 CONTir^UE 
81 CO^^*I^^E 
C 

DO 74 I=1,NIP1 
DO 74 J=1,NJP1 
T(I,J,1)=T(I,J,2) 

T(I,J,NKP1)=T(I,J,NK) 

74 CONTINUE 

C *** FOR SURFACE HEAT EXCHANGE WITH SURROUNDING 

DO 84 1=2, NI 
DO 84 K=2,NK 
DYJ=YUI,NJ,K,0,0) 

T( I ,NJP1 ,K ) = ( 2 . 0*C0ND( I ,NJ ,K 1*T( I ,NJ,K )/DYJ^HCOEF*TINF )/ 
& ( HCOEF+2 .O^COND( I ,NJ,K )/DYJ ) 

84 COfTTINUE 



C *** 



80 



FOR CYLIC CONDITION 

DO 80 J=1,NJP1 
DO 80 K=1,NKP1 
T(1,J,K)=T(NI,J,K) 
T(NIP1,J,K)=T( 2,J,K) 
CONTIf,’UE 

RETURN 

END 



SUBROUTINE CALC 

C *-,e**^*-)#-**-»f**-i^^****************^**^************************** 

C0MM0N/R4/XCr 95 J,YC( 95 i,ZC( 95 i,XS( 93 J,YS( 95 ),2S( <?3 ) , 

& DXXC( 95 ) ,DYYC( 95 1 ,D22C( 95 ) ,DXXSt 95 I ,DYYS( 95 ) ,DZ2S( 95 ) 

COMMON/BLl/DX , DY , D2 , VOL ,DTIME , VOLDT , THOT , TCOOL , PI ,Q ,QR 
C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
& ,NIP2,NJP2,N'KP2,NA,NAPl,NAMl,NB,NBPl,t>BMl,KRUN,NCHIP,NJRA,NWRP 
COMHON/BL12/ NWRITE ,NTAPE ,NTMAX0 ,NTREAL ,TIME ,SORSUM ,ITER 
C0MMCN/BL14/HC0E F ,TINF ,CNT , ABTUPB ,BTURB , VISL , VISMAX,QCORRT ,PM1 ,PM200146900 
CCf010N/BL16/ CONSTl ,CONST2 ,CONST3 ,C0NST4 ,CONST6 ,NT ,U0 , H ,UGRT ,5U0Y ,00147000 
& CP0,PRT, CONDO, VIS0,RH00, HR, TR,TA,DTEMP,TWRIT£ ,TTAPE ,TMAX ,GC ,RAIR00147100 



00141500 

00141600 

00141700 

OOlHlSOO 

00141000 

00142000 

00142100 

00142200 

00142500 

00142400 

00142500 

00142600 

00142700 

00142800 

00142900 

00145000 

00145100 

00145200 

00145500 

00145400 

00145500 

00145600 

00145700 

00145800 

00145900 

00144000 

00144500 

00144400 

00144500 

00144600 

00144700 

00144800 

00144900 

00145000 

001^5100 

00145200 

00145500 

00145400 

00145500 

00145600 

00145700 

001^5300 

00145900 

00146000 

C0146100 

00146200 

00146500 

00146400 

00146500 

00146600 

00146700 

00146800 
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COMMON/BL22/ICHPB( 10 ) ,NCHPI ( 10 ) , JCHPB( 10 » ,NCHPJ( 10 ) ,KCHPB( 10 ) , 00147200 

& NCHPK( 10 ),TCHP( 10 ),CPS( 10 ),CONS( 10 ),HFAN( 10 ) 00147S00 

COMMON/BL31/ T00( 22,16,S2 ) ,ROD( 22 , lt>,S2 ) ,POO( 22,16,52 ) 00147400 

Z ,C0D1 22,16,52 ),UOD( 22,16,52 J,VOD( 22,16,52 ),WOD( 22,lt>,52) 00147500 

COMMOK/BL52/ T( 22 , 16 ,52 ) , R( 22 , lo ,3 2 ) ,P( 22,lo,52 ) 00147600 

& ,C( 22,16,52 ),U( 22,16,52 J ,V( 22,16,52 l,W( 22,16,52) 00147700 

COMfiON/BL55/ TPD ( 22 ,lo ,52 ) ,RPD I 22 , 16 , 52 ) ,PPD( 22,16,52 ) 00147800 

& ,CP0( 22,16,52 J,UPD( 22,lo,52),VPD( 22 , 16 ,52 ) ,WPD( 22,16,52) 00147900 

COMMON/BL54/ HEIGHTl 22 , 16 ,52 ) ,REQ( 22,16,52 ), 00148000 

& SMP( 22,16,52 ),SMPP( 22 ,16 ,52 ) ,PP( 22,lo,52), 00148100 

& DU( 22,16,52 ),0V( 22 ,16 ,52 ) ,DH( 22,16,52 ) 00148200 

COMMON/BL56/AP( 22 , 16 , 52 ) , AE I 22 , 16 ,52 ) ,AN( 22 , 16 ,52 ) , AN( 22,16,52 ), 00148500 

5 AS( 22,16,52 ),AF( 22 , 16 ,52 ) ,AB( 22,16,52), 00148400 

6 SP( 22,l6,52),SU( 22,16,52 ),RI( 22,16,52 ) 00148500 

COmON/BL57/VIS( 22 , 16 ,52 ) ,COND( 22 ,16 ,52 ) ,N00( 22 , 16 ,52 ) ,RWALL( 579 ) 00148600 

& 



C *** 



. ,CPfi( 22,16,52 ) ,HS2( 5,2 ),NHSZ( 22 , 16 ,52 ) ,RESORM( 95 ) 


00148700 


COMMON/BL59/ALEW,PCURVE,COr4SRA,PCURMl,PSOUTH,QCORR,PERROR 


00148800 

00148900 


CALCULATE COEFFICIENTS 


00149000 

00149100 


00 100 K=2,NK 


00149200 


KP2=K+2 


00149500 


KP1=K+1 


00149400 


KM1=K-1 


00149500 


KM2=K-2 


00149600 


DO 100 J=2,NJ 


00149700 


JP2=J+2 


00149800 


JP1=J+1 


00149900 


JM1=J-1 


00150000 


JN2=J-2 


00150100 


DO 100 1=2, NI 


00150200 


IP2=I+2 


00150500 


IP1=I+1 


00150400 


IM1=I-1 


00150500 


IM2=I-2 


00150600 


IF (I.EQ.2) IN2=NIM1 


00150700 


IF (I.EQ.NI ) IP2=5 


00150800 

00150900 


CENTRAL LENGTH OF THE SCALE COrTTROL VOLUME 


00151000 

00151100 


DXP1=XLC IP1,J,K,0,0) 


00151200 


DXI =XL(I ,J,K,0,0) 


00151500 


DXM1=XL(IM1,J,K,0,0) 


00151400 

00151500 


DYP1=YL(I,JP1,K,0,0) 


00151600 


DYJ =YL(I,J ,K,0,0) 


00151700 


DYM1=YL( I,JM1,K,0,0) 


00151800 




00151900 


D2P1=2UI,J,KP1,0,0) 


00152000 


D2K =2LCI,J,K ,0,0) 


00152100 


D2M1=2L(I,J,KM1,0,0) 


00152200 

00152500 


SURFACE LENGTH OF THE CONTROL VOLUME 


00152400 

00152500 


DXN=XL(I,JP1,K,0,2) 


00152600 
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DXS=XL(I,J ,K,0,2) 

DXF=XL(I,J,KP1,0,S) 

DXB=XL(I,J,K ,0,Z) 

DYF=YL(I,J,KP1,0,3) 

DYB=YL(I,J,K ,0,3) 

DYE=YUIP1,J,K,0,1) 

DYW=YL( I ,J,K,0,1 ) 

DZE=ZL(IP1,J,K,0,1) 

DZW=ZUI ,J,K,0,1) 

DZN=ZL(I,JP1,K,0,2) 

DZS=ZUI,J ,K,0,2) 

C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 

DXEE=XL(IP2,J,K,0,1) 

DXE =XL(IP1,J,K,0,1) 

DXW =XL(I ,J,K,0,1) 

DXWW=XL(IM1,J,K,0,1) 

DYNN=YL( I ,JP2,K,0,2 ) 

DVN =YL( I,JP1,K,0,2 ) 

DYS =YL(I,J ,K,0,2) 

DYSS=YL(I,JM1,K,0,2) 

DZFF=ZL( I,J,KP2,0,3) 

DZF =ZL(I,J,KP1,0,3) 

DZB =ZL(I,J,K ,0,3) 

DZBB=ZL(I,J,KM1,0,3) 

C *** DEFINE THE AREA OF THE CONTROL VOLUME 

DXYF=DXF^DYF 

DXY3=DXB^DYB 

DY2E=DYE*DZE 

DYZW=DYW^DZN 

DZXN=DZN^DXN 

DZXS=DZ3*DXS 



VOL=DXI^DYJ^^DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYr4 

2X0VS=D2X3/DYS 

XY02F=DXYF/DZF 

XYOZB=DXYB/DZB 

Y20XE=DYZE/DXE 

YZOXr^=DYZH/DXH 



GN=( R( I ,J,K )*DYP1+R( I , JP1,K )*DYJ )/( DYPl + DYJ ) 
GS=( R( I , J ,K )#DYM1 + R( I , JMl ,K )#DYJ )/( DYMl + DYJ ) 
GE = ( R( I ,J,K J#DXP1 + R( IPl ,J,K )#DXI )/( DXPl + DXI ) 
GW=( R( I , J,K )^DXM1 + R( IMl , J ,K )^DXI )/( DXMl + DXI ) 
GF = ( R( I ,J,K )^tDZPl+R( I , J ,KP1 J*DZK )/( DZPl + DZK ) 



00152700 
00152800 
00152 900 
00153000 
00153100 
00153200 
00153300 
00153400 
00153500 
00153600 
00153700 
00153800 
00153900 
00154000 
00154100 
00154200 
00154300 
00154400 
00154500 
00154600 
00154700 
00154800 
00154900 
00155000 
00155100 
00155200 
00155300 
00155400 
00155500 
00155o00 
00155700 
00155800 
00155900 
00156000 
00156100 
00156200 
00156300 
0015&400 
00156500 
00156600 
0015o700 
0015oS00 
00156«00 
00157000 
00157100 
00157200 
00157300 
00157400 
00157500 
00157600 
00157700 
00157800 
00157900 
00158000 
00158100 
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GB = ( R( I,J,K )*DZM1 + R( I,J,KM1 J^DZK )/( DZMl + DZK ) 

CN=GN*V( I ,JP1 ,K )^^DZXN 
CS=GS*V(I,J ,K)*DZXS 
CE=GE*U( IP1,J,K )*DYZE 
CH=GK^U( I ,J,K )^DYZW 
CF=GF*H( I,J,KP1 )*DXYF 
CB=GB*H(I,J,K J*DXYB 



CONDN=l./( ( l./COND( I ,J,K )*DYJtl . /COND( I ,JP1,K )*DYP1 )/( DYPl + DYJ ) ) 
C0NDS=1 ./( ( 1 ./COND( I , J ,K )*DYJ + 1 ./COND( I , JMl ,K )*DYM1 )/( DYMl+DYJ ) ) 
CONDE=l./( ( l./COND( I,J,K )*DXI +1 . /COND( IPl , J ,K J*DXP1 \/i DXPl+DXI ) ) 
C0NDW=1./I ( l./COND(I,J,K )*DXI + 1 . /COND( IMl , J ,K )*DXM1 )/( DXMl+DXI ) ) 
CONDF = l./( ( l./COND( I,J,K )*DZK + 1 ./COfJD( I , J ,KP1 )*DZP1 J/( DZPl + DZK) ) 
C0NDB = 1 ./( ( 1 ,/COND( I , J ,K )*DZK + 1 ./COND( I , J,KM1 )*DZH1 J/( DZMl+DZK ) ) 

C0NDN1=ZX0YN*C0NDN*ALEW 

C0ND31=2X0YS^C0NDS*ALEW 

C0NDE1=YZ0XE*C0NDE^ALEW 

C0NDK1=YZ0XK^C0NDH*ALEW 

C0NDF1=XY0ZF^C0NDF*ALEH 

CONDBl=X'fOZB*CONDB*ALEW 



CEP = ( ABS(CE )+CE )*DXPl*DXI/( DXE*( DXE+DXH ) )/8 . 
CEM=( ABS(CE )-CE )*DX?l*DXI/( DXE*t DXE+DXEE ) )/8 . 
CKP = ( AB3( CW )+CN )*DXMl*DXI/( DXW*( DXVHDXWin )/3 . 
CWM=( ABS( CW )-CH )^DXMl*DXI/( DXW*t DXW + DXE ) )/S . 

CNP = ( ABS( CN l+CN i*DYPl*DYJ/( DYN*( DYN+DYS ) )/8 . 
CNM=( ABS( CN J-CN l*DYPl^^DYJ/( DYN*( DYN + DYNN ) )/8 . 
CSP = ( ADS( CS )+CS )*DYMl*DYJ/( DYS* ( DYS + DYSS ) )/8. 
CSM = ( ABS( CS )-CS J^DYMl*DYJ/( DYS^( DYS+DYN ) )/8. 

CFP = ( ASSt CF l+CF )*DZPl>DZK/( DZF^( DZF+DZB ) )/8. 
CFM=( ABS( CF )-CF )*DZPl*DZK/( DZF*( DZF + DZFF ) J/8. 
CBP = ( ABS( CB )+CB )^CZMl'»^DZK/( DZB*( DZB + DZBB ) )/8. 
CBM=( AB3(CB )-CS J^DZril*DZK/( DZB*( DZB+DZF J )/8. 



AE( I,J,K ) = -.5*DXI/DXE^CE+CEP + CEM*( l.+DXE/DXEE UCHM^DXW/DXE 
AW( I , J ,K U .5>DXI/DXH^CW+CWM+CNP*( 1. +DXW/DXWW )+CEP*DXE/DXH 
AN( I , J,K ) = - .5*DYJ/DYM+CrUCrP+CNM^( 1 . +DYN/DYNN WCSM^DYS/DYN 
A3( I , J,K 1= .5^DYJ/DYS^CS + CSM+CSP*( 1 . +DY5/DYSS )+Cr4?^DVN/DYS 
AF( I,J,K )=-.5^DZK/DZF+CF+CFP+CFM^( l.+DZr/DZFF )+CBM^DZB/DZF 
AB( I,J,K )= .5*DZK/DZB^CB+CBM+CBP*( l.+DZB/DZBB )+CFP*DZF/DZB 



801 AEE=-CEM*DXE/DXEE 
AEER=AEE*CPD(IP2,J,K) 

802 COr4TINUE 

803 AWW=-CHP*DXH/DXWH 
AWWR=AWW*CPD( IM2,J,K) 

804 CONTINUE 



001S8200 

00158300 

00158400 

00158500 

00158b00 

00158700 

00158800 

00153900 

00159000 

00159100 

00159200 

00159300 

00159400 

00159500 

00159600 

00159700 

00159800 

00159900 

00160000 

00160100 

00160200 

00160300 

00160400 

00162700 

00162800 

00162801 

00162802 

00162803 

00162804 

00162805 

00162806 

00162807 

00162808 

00162809 

00162810 

00162811 

00162812 

00162813 

00162814 

00162815 

00162816 

00162817 

00162818 

00162819 

00162820 

00162821 

00162822 

00162823 

00162830 

00162900 

00163000 

00163100 

00163200 

00163300 

00163400 
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o ri n 



IF (J.LT.NJ) GOTO 805 


00163500 

001b3600 


ANN=0. 


00163700 


ANNR=0. 


00163800 


GOTO 806 


00163900 


AriN = -CNM*DYN/DYNN 


00164000 


ANNR=ANN*CPD( I,JP2,K J 


001o4100 


CONTINUE 


00164200 


IF (J,GT.2) GOTO 807 


00164300 

00164400 


ASS=0. 


00164500 


A5SR=0. 


00164600 


GOTO 808 


00164700 


ASS=-C5Pi^DYS/DYSS 


00164800 


ASSR=ASS*CPD( I , JM2,K ) 


00164900 


CONTINUE 


00165000 


IF (K.LT.NK) GOTO 809 


00165100 

00165200 


AFF=0. 


00165300 


AFFR=0. 


00165400 


GOTO 810 


00165500 


AFF=-CFM^D2F/DZFF 


00165600 


AFFR=AFF^CPD(I,J,KP2) 


00165700 


CONTINUE 


00165800 


IF (K.GT.2J GOTO 811 


00165900 

00166000 


ABB=0. 


00166100 


A3BR=0. 


00166200 


GOTO 812 


00166300 


A5D=-CBP*DZB/DZBB 


001b6400 


ABBR=ABB*CPD( I , J ,KN2 J 


00lb6500 


CONTINUE 


001b6600 




00166700 

00166800 

001b6900 

00167000 


????????? 


00167100 


MODIFICATION FOR DECK BOUNDARIES 


00167200 


CCf4TINUE 


00167300 

00167400 


IF (N0D(IM1,J,KJ.EQ.0 J GOTO 901 


00167500 


AKN=0.0 


00167600 


AWWR=0.0 


00167700 


CCNTirrjE 


OC167800 

001o7900 


IF (NOD( IP1,J,K).EQ.0 J GOTO 902 


00168000 


AEE=0.0 


OOI 08 IOO 


AEER=0.0 


0016S200 


ccrmtJUE 


00168300 

00168400 


IF (NOD(I,JM1,K).EQ.O) GOTO 903 


00168500 


ASS=0.0 


00168600 


ASSR=0.0 


00168700 


corrriNUE 


00168800 

00168900 
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IF (N0D(I,JP1,K).EQ.0 ) GOTO 904 

ANN =0.0 

ANNR=0.0 

904 CONTI WE 

IF (N0D(I,J,KM1).EQ.0) GOTO 905 

ABB=0.0 

AEBR=0.0 

905 CONTINUE 

IF (N0D1I,J,KP1).EQ.0J GOTO 906 

AFF=0.0 

AFFR=0.0 

906 CONTINUE 

AP(I,J,K3 = (AE(I>J>K)+AW(I,J,K ) + AN( I , J ,K )+AS( I ,J>K ) 

& +AF(I,J,K l + AB(I,J,K )+AEE+AWW+ANT4 + ASS + AFF+ABB) 

a +CONDE1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 

AE( I , J ,K )=AE( I , J ,K )+CONDEl 
AW{I,J,K)=AW(I,J,K UCONDNl 
AN( I , J ,K )=Ara I ,J,K )+CONDNl 
AS( I , J ,K )=AS( I , J ,K UCONDSl 
AF( I,J,K)=AFa,J,K)+CONDFl 
ABtI,J,K l=AB( I,J,K)+C0NDB1 

SP( I ,J ,K ) = -ROD( I , J ,K )*V0LDT 

5U( I , J >K )= R0D( I , J ,K )*VOLDT*TOD( I ,J,K ) 

SU( I , J ,K )=SU( I , J ,K )+AEER+AWHR+AN.NR+ASSR+AFFR+ABBR 
100 CONTINUE 

C *** TAKE CARE OF B.C. THRU AN,AS>AE >AW,AF ,AB,SP AND SU 
C 

C RADIUS DIRECTION 

DO 500 1=2, NI 
DO 500 K=2,NK 

CC SP(I,2,K )=SP(I,2,K UAS(I,2,K) 

SP(I,2,K )=SP(I>2,K)-AS(I,2,K ) 

SU(I,2,K )=SU(I,2,K )+2.0*AS(I,2,K )*CPD(I,1,K) 

SP( I ,tU ,K ) =SP( I ,NJ ,K I -AN( I ,NJ ,K ) 

SU( I ,NJ ,K )=SU( I ,NJ ,K J + 2 .*CPDf I ,NJP1 ,K )*AN( I ,NJ ,K ) 
AS(I,2,K)=0.. 

AN(I,fU,K) = 0. 

500 CONTINUE 

C CYLIC CONDITIONS 

DO 600 J=2,NJ 
DO 600 K=2,NK 

SU(2 ,J,K)=SU(2 >J,K)+AW(2 ,J,K)*C(1 ,J,K) 



OOlb'iOOO 

00169100 

00169200 

00169300 

00169400 

00169500 

00169600 

00169700 

00169800 

00169900 

00170000 

00170100 

00170200 

00170300 

00170400 

00170500 

00170600 

00170700 

00170800 

00170900 

00171000 

00171100 

00171200 

00171300 

00171400 

00171500 

00171600 

00171700 

00171800 

00171900 

00172000 

00172100 

00172200 

00172500 

00172400 

00172500 

00172600 

00172700 

00172800 

00172900 

00173C00 

00175100 

00173200 

00175300 

00175400 

00173500 

00173600 

00173700 

00173800 

00173900 

00174000 

00174100 

00174200 

00174300 

00174400 
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SU(NI ,J,K )=SU(NI,J,K )+AE(NI,J,K I*C(NIP1,J,K ) 
AW(2 ,J,K)=0.0 
AE(NI,J,K)=0,0 
600 CONTTINUE 

C *** END OF SPHERE 

DO 700 1=2, NI 
DO 700 J=2,NJ 

SPd ,J,2 »=SPd,J,2 )+AB(I,J,2 ) 
SP(I,J,NK)=SP(I,J,NK)iAF(I,J,NK) 

ABC I,J,2 1=0. 

AF(I,J,NK)=0. 

700 COr^TINUE 



C *** ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 

DO 300 K=2,NK 
DO 300 J=2,NJ 
DO 300 1=2, NI 

AP(I,J,K)=AP(I,J,K)-SP( I,J,K) 

300 CONTINUE 



C *** VOLUME MASS SOURCE INPUT 

VOLT=0.0 
DO 113 1=2, NI 
DO 113 J=2,NJ 
DO 113 K=16,17 

IF (NHS2(I,J,K).EQ.O) GOTO 113 
DXI =XL(I ,J,K,0,0) 

DYJ =YL(I,J ,K,0,0) 

D2K =2L(I,J,K ,0,0) 

VOL=DXI^DYJ*D2K*H*H^H 
VOLT=VOLT+VOL 
113 CONTINUE 

DO 111 1=2, NI 
DO 111 J=2,NJ 
DO 111 K=lo,17 

IF (NHS2d,J,K).EQ,0) GOTO 111 
DXI =XL(I ,J,K,0,0) 

DYJ =YL(I,J ,K,0,0) 

D2K =2LtI,J,K ,0,0) 

QQQ=Q*H/( UO*CPO*RHOO*TA ) 

Qrs- 1.0 

Q.M3 = QMS^H/(UO*RHOO) 
V0L=DXI^DYJ*D2K 

sue I , J ,K )=SU( I , J ,K )*VOL*QMS/VOLT 
111 CONTINUE 



0017^500 

0Q174b00 

0017^700 

0017^800 

00174900 

00175000 

00175100 

00175200 

00175300 

00175400 

00175500 

00175600 

00175700 

00175800 

00175900 

00176000 

00176100 

00176200 

00176300 

00176400 

00176500 

00176600 

00176700 

00176800 

00176900 

00177000 

00177100 

00177200 

00177300 

00177400 

00177500 

00177600 

00177700 

00177800 

00177900 

00178000 

00173100 

00178200 

00178300 

00178400 

00178500 

00178600 

00178700 

00178800 

00178900 

00179000 

00179100 

00179200 

00179300 

00179400 

00179500 

00179600 

00179700 

00179800 

00179900 
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o o 



C *** SOLVE FOR C 

CALL TRIG (2,2,2,NI,NJM1,NK,C) 

C **** RESET CONCENTRATION AT R=0.0 AND END OF SPHERE 

DO 81 K = 

AVT=0.0 

DO 82 1=2, NI 

AVT=AVT + ( C ( 1 , 2 ,K )/NIMl ) 

82 CONTINUE 

DO 83 I=1,NIP1 
C(I,1,K)=AVT 

83 COr4TINUE 
81 CONTINUE 

DO 74 I=1,NIP1 
DO 74 J=1,NJP1 
C(I,J,1)=C(I,J,2) 

C(I,J,NKP1)=C(I,J,NK) 

74 CONTINUE 

C *** FOR SURFACE MASS EXCHANGE KITH SURROUNDING 

DO 84 1=2, NI 
DO 84 K=2,NK 
C(I,NJF1,K)=C(I,NJ,K) 

84 CONTINTJE 



C FOR CYLIC CONDITION 

DO 80 J=1,NJP1 
DO 80 K=1,NKP1 
C( 1,J,K)=C(NI,J,K) 
CtNIPl,J,K)=C(2,J,K) 

80 COriTllTJE 

RETURN 

Er4D 



SUBROUTINE CALU 

COMMOr4/R4/XCi 93 ) , YC ( 93 ) ,2C ( 93 ) ,XS( 93 ) , YS( 93 ) ,ZS( 93 ) , 

& DXXC( 93 ) ,DYYC( 93 ) ,DZZC( 93 ) ,DXXS( 93 J ,DYYS( 93 ) ,DZZS( 93 ) 

COMMON/BLl/DX ,DY ,DZ , VOL ,DTIME , VOLDT ,THOT ,TCOOL ,PI ,Q ,QR 
COMMOt4/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,r4K ,NKP1 ,NKM1 
& ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP 
COMMOr4/BL12/ NHRITE ,NTAPE ,NTMAX0 ,NTREAL , TIME ,SORSUM, ITER 
CCMMOr4/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,.PMl,PM200185200 
COMMON/BL16/ CONSTl ,CONST2 ,CONST3 ,COr4ST4 ,CONST6 ,NT ,U0 ,H ,UGRT ,BUOY ,00185300 
& CPO, PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEMP,THRITE,TTAP£ ,TMAX,GC ,RAIR0 01 85400 



00180000 

00180100 

00180200 

00180300 

00180400 

00180500 

00180600 

00180700 

00180800 

00180900 

00181000 

00181100 

00181200 

00181S00 

00181400 

00181500 

00181600 

00181700 

00181800 

00181900 

00182000 

00182100 

00182200 

00182300 

00182400 

00182500 

00182600 

00182700 

00182800 

00182900 

00183000 

00183100 

001S3200 

00183300 

00183400 

00163500 

00183600 

00183700 

00183800 

00183900 

00184000 

00184100 

001842CO 

00184300 

00184400 

00184500 

00184600 

00184700 

00184800 

00184900 

00185000 

00185100 
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COMMON/BL20/SIG1K 22,16,52 ) ,SIG12( 22,16,52 ) ,S1G22( 22,16 ,52 ) 00185500 

t ,SIG151 22, lo, 52 ),GIG25( 22,16,52 1,GIG55( 22, le .52 t 00185600 

COMMON/BL22/ICHPB( 10 ),NCHPI( 10 I.JCHPBI 10 ),NCHPJ( 10 ),KCHPBl 10 ) , 00185700 

t NCHPKtlO J,TCHP(10),CP3(10),COrJS(10I.HFftN(10) 00135800 

C0MM0N/BL31/ TOD( 22 , 16 ,52 ) ,ROD( 22 ,lo ,52 ) ,POD( 22 ,1b ,52 » 00185R00 

8 ,CCO( 22,16,32 ),UODl 22 , 16 ,52 I ,V00t 22,16,32 l,HOD( 22,16,32 ) OOlSbOOO 

C0HM0N/BL52/ T( 22 ,16 ,32 > ,R( 22 ,16 ,32 ) ,PI 22 ,lo ,52 I OOI 80 IOO 

t ,C( 22, 16, 32), U( 22,16,32 ),V( 22,16,32 I, W( 22,16,32) 00186200 

COmON/BL33/ TP0(22,lb,32),RPD(22,16,32),PPD(22,l6,32) 00186300 

t ,CPO( 22,lo,32 ),UPDl 22,16,52 ) ,VPD( 22 . 16 ,52 ) ,WPD( 22,16,52 ) 00166400 

C0MM0N/BL34/ HEIGHT) 22 ,16 ,32 ) ,REQ( 22 ,16 ,32 ) , 00186500 

S BMP) 22,16,32 ),SMPP) 22,16,52 ),PP) 22,16,52 ), 00186600 

S DUt22,16,32),DV(22,16,32),DW)22,16,32) 00186700 

C0MM0N/BL36/AP(22,16,32 ),AE( 22,lo,32 ),AH( 22 ,16 ,32 ) ,AN( 22,16,32), 00186800 

i AS) 22,16,52 ),AF( 22,16,32 ),A3( 22,16,52), 00186400 

S SP)22,16,32),SU)22,16,32),RI)22,16,32) 00187000 

C0MM0N/BL37/ VIS) 22 , 16 ,32 ) ,COND) 22 ,16 ,32 ), NOD) 22 ,16 ,32 ) ,RHALL) 579 )00187100 



c 



; ,CPM(22,16,32),HSZ(3,Z 


),NHSZ( 22,16,32 ),RESORM( 93) 


00187200 

00187300 


CALCULATE COEFFICIENTS 




00187<^00 

00167500 


DO ICO K=2,NK 




00187600 


KP2=K+2 




00187700 


KP1=K+1 




00187800 


KM1=K-1 




00187900 


KM2=K-2 




00168000 


DO 100 J=2,NJ 




00183100 


JP2=J+2 




00188200 


JP1=J+1 




00188300 


J.M1=J-1 




00188‘+00 


JM2=J-2 




00188500 


DO ICO 1=2, NI 




00188600 


IP2=I+2 




00188700 


IP1=I+1 




00188300 






00188900 


IM2=I-2 




00189000 


IF (I.EQ.2) IM1=NI 




00189100 


IF (I.EQ.2) IM2=NIM1 




00189200 


IF (I.EQ.3 1 IM2=r4I 




00189300 


IF (I.EQ.NI ) IP2=S 




00180^00 

00189500 

00189600 


CENTRAL LENGTH OF THE SCALE 


corrrROL volume 


C0189700 

00139800 


DXP1=XL(IP1,J,K,1,0) 




00189900 


DXI =XL(I ,J,K,1,0) 




001^0000 


DXM1=XL( IM1,'J,K,1,0 ) 




00190100 

00190200 


DYP1=YL(I,JP1,K,1,0) 




00190300 


DYJ =YL(I,J ,K,1,0) 




00190*400 


DYM1=YL(I,JM1,K,1,0) 




00190500 

00190600 


DZP1=ZL(I,J,KP1,1,0) 




00190700 


DZK =ZL(I,J,K ,1,0) 




00190600 


DZM1=ZL(I,J,KM1,1,0) 




00190900 
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C *** SURFACE LENGTH OF THE CONTROL VOLUME 

DXN=XL(I,JP1,K,1,2) 

DXS=XL(I,J ,K,1,2) 

DXF=XL(I,J,KP1,1,5) 

DXB=XL(I,J,K ,1,5) 

DYF=YL(I,J,KP1,1,5) 

DYB=YL(I ,J,K ,1,5) 

DYE=YL(IP1,J,K,1,1) 

DYW=YL(I ,J,K,1,1) 

D2E=2L(IP1,J,K,1,1) 

D2W=ZL(I ,J,K,1,1 ) 

DZN=ZL(I,JP1,K,1,2) 

DZS=ZL(I,J ,K,1,2) 

C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR U 

DXEE=XL(IP2,J,K,1,1) 

DXE =XL(IP1,J,K,1,1 ) 

DXW =XL(I ,J,K,1,1) 

DXWW=XL(IM1,J,K,1,1) 

DYNN=YL(I,JP2,K,1,2) 

DYN =YL(I,JP1,K,1,2) 

DYS =YL(I,J ,K,1,2) 

DYSS=YL(I,JM1,K,1,2) 

DZFF=ZL(I,J,KP2,1,5) 

DZF =ZL(I,J,KP1,1,5) 

DZB =ZL(I,J,K ,1,5) 

DZBB=ZL(I,J,KM1,1,5 ) 

C DEFINE THE AREA OF THE CONTROL VOLUME 

DXYF=DXF^DYF 

DXYB=DXB^DYB 

DY2E=DYE*DZE 

DYZH=DYW^DZN 

DZX^J=CZ.N^DXN 

DZXS=DZS^DXS 



VOL=DXI^DYJ*DZK 

VOLDT=VOL/DTIME 

ZX0YN=D2XN/DYN 

2X0YS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOX»‘<=DYZK/DXH 
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USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 



GNE=SILIN(R( I ,JP1,K ),R( I , J ,K ) ,DYP1 ,DYJ )*Vl I ,JP1,K ) 
GNW=SILIN( R( IMl , JPl ,K ) ,R( IMl ,J,K ) ,DYP1 ,DYJ MV( IMl ,JP1 ,K ) 
GSE=SILIN(R(I ,JM1,K),R(I , J ,K ) ,DYM1 ,DYJ )*V( I ,J ,K ) 

GSW=SILIN( R( IMl , JMl ,K ) ,R( IMl , J>K ) ,DYM1 ,DYJ )*V( IMl , J ,K ) 

GE =SILIN( R( IPl ,J ,K ) ,R( I , J ,K ) ,DXEE ,DXE )*U( IPI ,J ,K ) 

GP =SILIN( R(IM1,J,K),R(I ,J,K),DXW ,DXE)*U(I >J,K) 

GW =SILIN( R( IM2 , J ,K ) >R( IMl , J,K ) >DXWW >DXW )*U( IMl > J ,K ) 

GFE=SILIN( R( I ,J,KP1),R(I , J ,K ) >DZP1 ,D2K )*W(I >J,KP1 ) 
GFW=SILIN( R(IM1,J,KP1 ),RaMl,J,K),D2Pl,D2K )*WaMl , J >KP1 ) 
GBE=SILINtR(I ,J,KM1),R(I , J ,K ) ,DZM1 ,DZK )*W( I ,J,K ) 

GBW=SILIN( R( IMl, J ,KM1 ) ,RJ IM1,J,K ) ,DZM1 ,D2K )*W( IMl ,J,K ) 

CE = 0.5*(GE+GP )*DYZE 
CW=0.5?^(GP+GW)*DYZW 

CN=SILIN(GNE ,GNTW ,DXE ,DXW )*DZXN 
CS=3ILIN( GSE ,GSW,DXE ,DXW )*DZXS 

CF=SILIN( GFE ,GFW,DXE ,DXW )^DXYF 
CB=SILINl GBE ,GBW ,DXE ,DXW )*DXYB 

VISE=VIS(I ,J,K) 

VISW=VIS(IM1,J,K) 

VISN= (Visa ,JP1,K)+VIS(I ,J,K) + 

; vise IM1,JP1,K )+VIS(IMl,J,K ) )/^.0 

VISS= (Visa ,JM1,K)+VIS(I ,J,K) + 

; VIS( IMl ,JM1 ,K )+VIS( IMl ,J,K ) )/^.0 

VISF= (Visa ,J,KP1 )+VIS(I ,J,K) + 

; VIS( IMl , J ,KP1 )+VIS( IMl , J ,K ))/^,0 

visB= (Visa ,j,KMi uvisa ,j,K)+ 

; VIS( IM1,J,KM1 )+VIS( IMl ,J,K ) )/^.0 



VISNl=ZXOYN-^VISN 

VISSl=ZXOYS^VISS 

VISE1=Y20XEWISE 

VISWl=YZOXWWISW 

VISFl=XYOZF^VISF 

VISBl=XYOZB^yiSB 



CEP = ( ABS(CE )*CE )*DXE/DXI/16 . 

CEM=( ABS( CE )-CE )*DXE/DXF1/16 . 

CWP = ( ABSl CW )+CW )*DXW/DXM1/16 . 

CWM=( ABS( CW )-CW )*DXW/DXI/16 . 

CNP = ( ABS( CN )+CN )*DYPl*DYJ/( DYN*( DYN+DYS ) )/8. 
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CNT''.= l ABSl CN )-CN )*DYPl#DYJ/t DYN*( DYN + DYm ) )/8. 

CSP = t ABS( CS )+CS )*DYHl*DYJ/( DYS** ( DYS + DYSS ) )/S. 

CSM=l AB5( CS )-CS )*DYMl*DYJ/( DYS*( DYS♦DY^4 ) )/3. 

CFP=( ABSICF UCF l#OZPl*DZK/( D2F#( D2F + DZB } )/8. 

CFM=( ABStCF )-CF )^DZPl*DZK/( DZF*( DZF + DZFF ) )/8. 

CBP = ( ABStCB )+CB )*DZMl*DZK/( DZB*( DZB + DZBB ) )/8. 

CBM=( ABS( CB )-CB )*D2Ml*DZK/( DZB*( D2B+D2F ) J/8. 

AE(I,J,K) = -.5*CE+CEP+CEM^t( l.+DXE/DXEE )+CWM*DXW/DXE ♦VISEl 
AN( I , J ,K )= .5#CW+CWM+CNP^( 1 . -fOXH/DXWW ) +CEP*DXE/DXW+VISW1 



AN( I , J ,K ) = - .5#DYJ/DYN*CN*CNP+CNM*( 1. +OYN/DYNN UCSM*DYS/DYN+VISN1 
AS( I , J,K )= ,5*DYJ/DYS*CS+CSM+CSP*( 1 . +DYS/DYSS i ♦CNP*DYN/DYS+VISS1 
AF(I,J,K) = -.5*DZK/DZF*CF+CFP+CFM^t( 1.+D2F/D2FF )4CBM*D2B/D2F+VISF1 
AB( I , J,K )= .5*D2K/D2B^fCB+CBM+CBP*( 1 . +D2B/D2BB )+CFP*DZF/DZB+VISBl 



801 AEE=-CEM#DXE/DXEE 
AEER=AEE*UPD(IP2,J,K) 

802 CONTINUE 

805 Ai'W = -CWP^DXW/DXWW 

AKNR=AK'W^UPD( IM2 , J ,K ) 
80^ COrfTINUE 

IF (J.LT.NJ) GOTO 805 
ANf4=0. 

ANNR=0 . 

GOTO 806 

805 ArJN=-CNrHDYN/DYNN 
AriMR=ANN^UPD( I , JP2 ,K ) 

806 CO.'fTINUE 

IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0 . 

GOTO 808 

807 ASS=-CSP*DYS/DYSS 
ASSR=ASS^UPD ( I , JM2 ,K ) 

808 COr^TirJUE 

IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 

809 AFF=-CFM#DZF/D2FF 
AFFR=AFF#UPD(I,J,KP2) 

810 coraiNUE 

IF (K.GT.2) GOTO 811 
ABB=0. 

ABBR=0. 

GOTO 812 
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6U ABB = -CBP*DZB/DZBB 

A3BR=ABB*UPD( I ,J,KM2 ) 
812 COr^TI^^UE 



*** MODIFICATION FOR DECK BOLH^iDARIES 

900 COfTTir^UE 

IF (NOD(IM2,J,K).EQ.O) GOTO 901 
AWN=0.0 
AKWR=0.0 

901 CONTirAJE 

IF (NOD(IP1,J,K).EQ.O) GOTO 902 
AEE=0.0 
AEER=0.0 

902 CONTirWE 

IF (NOD(I,JM1,K).EQ.O ) GOTO 903 
ASS=0.0 
ASSR=0.0 

903 CONTINUE 

IF (N0D(I,JP1,K J.EQ.O) GOTO 90^4 
ANrJ=0.0 
ANNR=0.0 
90h CONTINHJE 

IF (NOD(I,J,KM1).EQ.O J GOTO 905 
AE3=0.0 
ABBR=0.0 

905 ccrrriNUE 

IF (N0D(I,J,KP1).EQ.0) GOTO 906 
AFF=0.0 
AFFR=0.0 

906 COrJTINUE 



c *** SU FROM NORMAL STRESS 

RE = ( SIGIK I * ,J ,K )-( U( IPl, J,K )-U( I , J,K ) )i^VISE/DXE )*DYZE 
RN = (SIG11I IM1,J>K )-(U( I ,J,K »-U( IM1,J,K ) )*VISH/DXW )*DYZH 
RN=( SIG12 ( I , JPl ,K )-( U( I , JPl ,K )-U( I , J ,K ) >*VISN/DYN )^DZX^^ 
RS=( SIG12( I , J ,K )-( U( I , J ,K )-U( I , JMl ,K ) IWISS/DYS )*DZXS 
RF = (SIG13( I,J,KP1 )-(U( I ,J,KP1 )-U( I>J,K ) )*VISF/DZF )«DXYF 
RB = ( SIG13( I , J ,K )-( U( I , J ,K )-U( I , J ,KM1 ) )#VISB/DZB )*DXYB 

c »*# SU FROM CURVED STRESSES AND ACCELERATIONS 
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AVG12=0.5*(SIG12( I,JP1>K )+CIG12( I , J ,K )) 

AV3i?-0.5^( SIG13( 1 , J>KP1 )+3IG15( I ,J,K ) ) 

A.VGZ2=SILIN( SIGCZa , J ,K ) ,SIG22 ( IMl ,J,K ) ,DXE ,DXH ) 

AVG33=SILINJ SIG33( I , J ,K ) ,SIG33( IMX , J ,K ) ,DXE ,DXW ) 

AU1=U( I,J,K) 

AU2=BILIN( V( I , JPl ,K ) ,V( I , J ,K ) ,DYJ »DYJ , 
a VI IM1,JP1,K),V( ),DYJ,DYJ, DXE,DXW) 

AU3=BILIN(W(I ,J,KP1 ),W(I , J ,K ) ,DZK ,DZK , 

2 W(IM1,J,KP1 ),NIIM1,J,K),DZK»DZK, DXE,DXW) 

AR=SILIN( R( I,J,K),R( IMl , J ,K ) ,DXE ,DXW ) 

ARU12=AR*AU1*AU2 
ARU13=AR*AUH(AU3 
ARU22=AR^(AU2*AU2 
ARU33=AR^AU3*AU3 

RRY = r AV612~ARU12 )*DZK^( DXN-DXS ) 

RRZ = ( AVG13-ARU13 )*DYJ*( DXF-DXB ) 

RRX = ( AVG22-ARU22 l^(DZK*l DYE-DYW ) + 

& { AVG33-ARU33 )*DYJ*( DZE-DZH ) 

APa,J,K)=AE(I,J,K) + AN(I,J,K)+AN(I,J,K HAS(I,.J,K) 

1 +AF( I , J ,K )+AB( I , J ,K l+AEE+AWW + ANf>l + ASS+AFF + ABB 
SPJ I , J,K ) = -( ROD( I , J ,K )*DXW + ROD( IMl , J ,K i*DXE )/i DXW + DXE )*VOLDT 
SVi I , J,K )= I ROD! I , J ,K )*DXW+ROD( IM1,J ,K )^^DXE )/i DXH+DXE )*VOLDT 

5 *UOD(I,J,K) 

SUa,J,K)=SUI I ,J,K) + DYJ^DZK*r P( IM1,J,K )-Pl I,J,K) ) 

6 ♦AEER+AmR+ANNR + ASSR+AFFR + ABBR 

2 +RE-RW+RN-RS+RF-RB+RRY+RRZ-RRX 

a-BUOY^fSIN(ZC(K ) (R( I ,J,K )-REQ;I,J»K ) i^DXW^COSr XC(I ) )♦( R( IMl, 

a J ,K )-REQ( IMl , J,K ) )*DXE*COS( XC( IMl ) ) )/{ DXH+DXE )*WOl 
100 CONTINUE 

TAKE CARE OF B.C. THRU AN , AS ,A5 ,AH,AF ,AB ,SP AND SU 

RADIUS DIRECTION 

DO 500 K=2,NK 
DO 500 1=2, NI 
CC SP( I,2,K )=SP( 1 ,2,K ) + AS( 1 ,2,K) 

SP( I,2,K )=3P( I,2,K )-AS( I,2,K) 

SU( I,2,K)=3U(I,2,K ) + 2.0*UJ I,1,K)*AS(I,2,K) 

SP( I,NJ,K J=SP( I,NJ,K)-AN( I,NJ,K) 

AN( I ,NJ,K )=0. 

A3(I,2,K) = 0.* 

500 CONTir^UE 

C *** CYLIC CONDITION 

DO 502 K=2,NK 
DO 502 J=2,MJ 

SU(2 ,J,KJ=SUJ2 ,J,K)+AW(2 ,J,K)^^U(1 ,J,K) 
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SLHNI ,J,K )=SU(NI,J,K )+AE(NI,J,K )*U(NIP1,J,K ) 
AH(2 ,J,K) = 0.0 
AE(NI,J,K) = 0.0 
502 CONTINUE 

C *** FRONT AND BACK WALLS 

DO 600 1=2, NI 
DO 600 J=2,NJ 

C SLIP WALLS 

SP(I,J,2 )=SP(I,J,2 )+AB(I,J,2) 

SP(I,J,f^ j=SP(I,J,NKi + AF(I ,J,NK) 

AF(I,J,NK)=0. 

AB(I,J,2 )=0. 

600 CONTlh4UE 



IF (NCHIP.EQ.O) GOTO 105 

C MODIFICATION FOR DECK BOUfJDARIES 

DO 101 N=1,NCHIP 
I3=ICHPB(N) 

IE=IB+NCHPI(N1-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

JBMi=JB-l 

JEP1=JE+1 

KB=KCKPB(N) 

KE=KB+NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE*1 

DO 102 J=J3,JE-1 
DO 102 K=KB,KE-1 
AE( IBM1,J,K 1 = 0.0 

awiiep:,j,k)=o.o 



102 CONTINUE 

DO 103 I=IB,iE 
DO 103 K=KB,KE-1 

$P( I , JBMl ,K )=SP( I , JBMl ,K )-AN( I , JBMl ,K ) 
AN(I,JBM1,K ) = 0.0 

SP ( I , JE ,K )=SP( I , JE ,K j -AS( I , JE ,K ) 
A3(I,JE,K)=0.0 

103 CONTINUE 
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c 



c 

c 



c 



c 





DO 106 I=IB,IE 
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DO 106 J=JB,JE~1 


00223800 




SP< I , J ,KBM1 )=SPl I , J ,KBM1 )-AF( I , J ,KBM1 ) 


00223900 




AFII,J,KBM1)=0.0 


00224000 




SP( I,J,KE )=SPl I ,J,KE )-ABl I,J,KE ) 
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ABII,J,KE)=0.0 


00224300 


106 


CONTINUE 
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*** 


FOR THE CELLS IfNlSIDE OF THE DECKS 
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DO 104 I=IB,IE 
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DO 104 J=JB,JE-1 


00225000 




DO 104 K=KB,KE-1 
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SPII,J,K)=-1.0E20 
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ANII,J,K)=0. 
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AEII,J,K)=0. 
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ASII,J,K )=0. 
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AN(I,J>K )=0. 
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SU(I ,J,K )=0. 


00225700 
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CONTimE 
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101 


COriTINUE 
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105 


COr^TINUE 
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*** 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
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DO 301 K=2,NK 
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DO 301 J=2,NJ 


00227000 




DO 301 1=2, NI 


00227100 




DYJ=YLII,J,K,1,0) 
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DZK=ZLl I ,J,K,1,0 ) 
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DY2=DYJ*DZK 
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APII,J,K )=APII ,J,K )-SP(I,J,K) 
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DU( I , J ,K )=DYZ/AP ( I , J ,K i 
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301 


CONTlNnjE 
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*** 


SOLVE FOR U 
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CALL TRID 1 2,2,2, NI,NJ,NK,U) 
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DO 74 I=2,NIP1 
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DO 74 J=2,NJP1 
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UII,J,1)=U(I,J,2) 
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UII,J,NKP1)=UII,J,NK) 
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74 


COf^TINUE 
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79 



DO 79 I = 1,NIP1 
OO 79 K=1,NKP1 
U(I,1,K)=U(I,2,K) 
CONTINUE 



IF (NCHIP.EQ.O) GOTO 112 
C *** RESET THE VELOCITY INSIDE OF DECK 



DO 110 N=1,NCHIP 

IB=ICHPBtN) 

IE=IB+NCHPI(NJ-1 

JB=JCHPB(M) 

JE=JB+NCHPJ(N)-1 

KB=KCHPB(N) 

KE=Kb*NCHPK(N)-l 

DO 108 I=IB,IE 

00 103 J=JB,JE-1 

DO 103 K=KB,KE-1 

U(I,J,K) = 0.0 

CCNTINUE 

COrJTINUE 

CONTINUE 



108 
110 
112 
C 



RETURN 

END 



SUBROUTINE CALV 

*-j^***-jt^f******-)^*************^******^(^**************************»Ht** 
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00231000 

00231100 

00231200 

00231300 

00231900 

00231500 

00231600 

00231700 

00231800 

00231900 

00232000 

00232100 

00232200 

00232300 

00232900 

00232500 

00232600 

00232700 

00232800 

00232900 

00233000 

00233100 

00233200 

00233300 

00233900 

00233500 



COMNO:4/R9/XC( 9S ) , YC( 93 ) ,2C( 93 ) ,XS( 93 ) ,YS( 93 ) ,2S( 93 ) , 
a OXXC ( 93 ) , 0 YYC ( 93 J , OZZC ( 93 ) , OXXSr 93 ) , DYYS ( 93 ) , DZZS( 93 ) 

COMXON/BL 1/OX, DY,DZ, VOL, OTIME ,VOLOT,TKOT ,TCOOL ,PI ,Q,QR 
C0MXCrj/BL7/NI ,NIP1 .rUMl ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
& ,NIP2 ,NJP2 ,NKP2 .NA ,NAP1 ,NAril ,NB ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP 

C0N:ISN/EL12/ nwrite ,ntape ,nthaxo ,ntreal ,time ,sorsum,iter 

C0t'.X0N/5L16/ CONSTl ,C0N5T2 ,C0NST3 ,C0NST9 ,C0r:ST6 , NT ,U0 ,H ,UGRT , BUOY ,00233600 
S CPO,PRT,CONOO,VISO ,RHO0 ,HR ,TR ,TA ,OTEMP ,THRITE ,TTAPE ,TMAX,GC ,RAIR00233700 
COMM0N/BL20/SIG1K 22 , 16 ,32 ) ,5IG12( 22 , 16 ,32 ) ,SIG22( 22, lb, 32 ) 00233800 

5 ,SIG13( 22,16,32 ),SIG23( 22 , 16 ,32 ) ,SIG33( 22,16,32 ) 00233900 

C0MM0N/BL22/ICHPB( 10 ) ,NCHPI ( 10 I , JCHPB( 10 ) ,NCHPJ( 10 ) ,KCHPB( 10 ) , 00239000 

6 NCHPK( 10 } ,TCHP( 10 ) ,CPS( 10 ) ,C0N3( 10 ) ,WFAN( 10 J 00239100 

C0MM0N/BL31/ TOD( 22 ,lo ,32 J ,ROD( 22 , 16 ,32 ) , POO ( 22,lo,32 ) 00239200 

S ,COO( 22,16,32 ),UOO( 22,16,32 ),VOO( 22,16,32 ),HOO( 22,16,32 J 00239300 

C0MM0N/BL32/ T( 22,16,32 ),R( 22,16,32 ),P( 22,16,32 ) 00239900 

a ,C( 22,16,32 ),U( 22,16,32 ),V( 22,16,32 ),W( 22,16,32 ) 00239500 
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COMMON/BL33/ TPD( C2 , lt> ,32 1 ,RPD ( 22,16.32 ).PPD( 22,16,32 I 0023^600 

& ,CPD( 22,lo,32 l,UPD( 22 ,1b ,32 J ,VPD( 22 , lb ,32 J ,WPD( 22,16,32 ) 00236^700 

C0MM0N/BL34/ HEIGHTt 22 , lo ,32 ) ,REQ( 22,lo,32 J, 0023^800 

5 SMPt 22,16,32 ),SMPP( 22 , lb ,32 ) ,PP( 2 2,16,32 J, 00234900 

6 DUl 22,16,32 J,DV( 22 , 16 .32 ) ,DW( 22,lo,32 ) 00235000 

C0MM0N/BL3o/AP( 22 ,lo ,32 J ,AE ( 22 ,lo ,32 ),AW( 22 , lb ,32 J , AN( 22,16,32 J, 00235100 

& AS( 22,10,32 ),AF( 22,16,32 ),ABt 22,10,32 J, 00235200 

& SP( 22,16,32 ),SU( 22,16,32 ),RI( 22,16,32 ) 00235300 

COMMOrJ/BL37/ VIS( 22 , lb , 32 1 ,C0NDt 22 ,16,32 l,N0D( 22 , 16 ,32 ) ,RKALU 579 J00235400 

& 



C 



c 



> ,CPM1 22,16,32 ),HSZ( 3,2 ),NHSZ( 22 , 16 ,32 ) , RESORMl 93 J 


00235500 

00235600 

00235700 


CALCULATE COEFFICIENTS 


00235800 

00235900 


DO 100 K=2,NK 


00236000 


KP2=K+2 


00236100 


KP1=K+1 


00236200 


KM1=K-1 


00236300 


KM2=K-2 


00236400 


DO 100 J=3,NJ 


00236500 


JP2=J+2 


00236600 


JP1=J+1 


00236700 


JM1=J-1 


00236800 


JM2=J-2 


00236900 


DO 100 1=2, NI 


00237000 


IP2=I+2 


00237100 


IP1=I+1 


00237200 


IM1=I-1 


00237300 


IM2=I-2 


00237400 


IF (I.EQ.2J IM2=NIM1 


00237500 


IF (I.EQ.NI ) IP2=3 


00237600 

00237700 

00237800 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


00237900 

00238000 


DXP1=XL(IP1,J,K,2,0 J 


00238100 


DXI =XL(I ,J,K,2,0) 


00233200 


DXM1=XLIIM1,J,K,2,0 J 


00233300 

00238400 


DYP1=YL(I,JP1,K,2,0 ) 


00238500 


DYJ =YLII ,J ,K,2,0 ) 


00238600 


DYH1=YL1I,JM1,K,2,0) 


00233700 

002388C0 


D2P1=2LII,J,KP1,2,0) 


00233900 


DZK =ZL(I,J,K ,2,0) 


00239000 


DZM1=ZL(I,J,KM1,2,0) 


00239100 

00239200 


SURFACE LENGTH OF THE CONTROL VOLUME 


00239300 

00239tf00 


DXN=XL( I,JP1,K,2,2 ) 


00239500 


DXS=XL(I,J ,K,2,2) 


00239600 


DXF=XL(I,J,KP1,2,3) 


00239700 


DXB=XLII,J,K ,2,3) 


00239800 

00239900 


DYF=YLII,J,KP1,2,3) 


00240000 
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C 



C *** 






DYB=YL(I,J,K ,2,3) 

DYE=YL(IP1,J,K,2,1) 

DYW=YL(I ,J,K,2,1) 

DZE=2L(IP1,J,K,2,1) 

D2H=2L(I ,J,K,2,1) 

DZN=ZL(I,JP1,K,2,2) 

DZS=ZL(I,J ,K,2,2) 

CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 

DXEE=XL(IP2,J,K,2,1) 

DXE =XL(IP:,J,K,2,1) 

DXW =XL(I ,J,K,2,1) 

DXW>-^=XL(IM1,J,K,2,1) 

DYNN=YL(I,JP2,K,2,2) 

DYN =YL(I,JP1,K,2,2) 

DYS =YL(I,J ,K,2,2) 

DYSS=YL(I,JM1,K,2,2 J 

CZFF=2L(I,J,KP2,2,3) 

DZF =ZL(I,J,KP1,2,3) 

D2B =ZL(I,J,K ,2,3) 

DZBB=ZL(I,J,KM1,2,3) 

DEFINE THE AREA OF THE CONTROL VOLUME 

DXYF=DXF^DYF 

DXYB=DXB*DYB 

DYZE=DYE*CZE 

DYZW=DYW^D2W 

DZXN=D2N^DXf^ 

D2XS=DZS’^DXS 



VOL=DXI^DYJ*OZK 

VGLDT=VOL/DTIME 

ZX0YN=D2XrJ/DYN 

2X0YS=DZX3/DYS 

XYC2F=0XYF/DZF 

X'.'CZ3=DXiB/D2B 

YZOXc=DYZE/DXE 

V20XW=DYZK/DXW 



USE SINGLE AND BI-LINEAR irTTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES A)>1D FLUX ON THE SURFACES, 



GEN=SILIN( R( IPl , J ,K ) ,R( I , J ,K ) ,DXP1,DXI )*U( IPl, J ,K ) 
GHS=SILIN(Rl IP1,JM1,K ) ,R( I , JMl ,K ) ,DXP1 ,DXI )^( IPl , JMl ,K ) 
GHN=SILIN(R(IM1,J ,K),R(I,J ,K ) ,DXM1,DXI )^^U( I ,J ,K) 
GWS=SILINI R( IMI , JMl ,K ) ,R( I , JMl ,K ) ,DXM1 ,DXI )*U( I , JMl ,K ) 



002A0100 

002A0200 

002A0300 
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002^0500 

00240600 
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00241100 

00241200 
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00241900 

00242000 

00242100 

00242200 

00242300 

00242400 

00242500 

00242600 

00242700 

00242800 

00242900 

00243000 

00243100 

00243200 

00243300 

00243400 

00243500 

00243600 

00243700 

00243800 

00243900 
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00244200 

00244300 
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00244600 

00244700 

00244800 

00244900 

00245000 

00245100 

00245200 

00245300 

00245400 

00245500 



165 



o o 



GN =SILIN(R( I,JP1,K),R( I,J ,K ) ,DYm ,DYN l*V( 1 , JPl ,K ) 

GP =SILIN(R(I,JM1,K),R(I,J ,K),DYS ,DYNI*V(I,J ,K ) 

GS =SILINJ R( I , JM2,K ) ,RiI , JHl ,K ) ,DYSS ,DYS )#V( I , JMl ,K ) 

GFN=SILIN( R( I , J ,KP1 ) ,R( I , J ,K 3 ,DZP1 ,DZK )*H( I , J ,KP1 ) 
GFS=SILIN( R( I , JMl ,KP1 ) ,R( I , JM1,K ) ,DZP1 ,DZK )*H( I ,JM1 ,KP1 ) 
GBN-SILIN(R( I,J ,KM13,R(I,J ,K 3 ,DZM1 ,DZK )*H( I , J ,K 3 
GBS=SILIN( R( I , JMl ,KM1 ) ,R( I , JMl ,K ) ,DZM1 ,DZK 3*W( I , JMl ,K ) 

CN=0.5*(GN+GP )*DZXN 
CS=0.5*( GP+GS )*DZXS 

CE =SILIN( GEN ,GES ,DYN ,DYS )*DYZE 
CW=SILIN(GWN,GHS,DYN,DYS)*DYZW 

CF=SILIN(GFN,GFS,DYN,DYS)*DXYF 
CB=SI LIN( GBN ,GBS , DYN , DYS )*DXYB 

VISN=VISa,J ,K3 
VISS=VIS(I,JM1,K3 

VISE= (VIS(IP1,J ,K3WIS(I,J ,KH 

a VIS( IPl , JMl ,K 3+VIS( I , JMl ,K 3 3/4.0 

VISH= (VIS(IM1,J ,K3+VIS(I,J ,K3+ 

a VIS( IMl, JM1,K 3*VIS( I , JM1,K 3 3/4.0 

VISF= (VIS(I,J ,KP13+VIS(I,J ,K3+ 

a VIS( I , JMl ,KP1 i + VIS( I , JMl ,K 3 3/4.0 

VISB= (VIS(I,J ,KM13+VIS(I,J ,K3+ 

a VIG(I,JM1,KM1 3+VIS(I,JMl,K3 3/4.0 



VISN1=ZX0YN^VISN 

VISS1=ZX0YS*VISS 

VI$E1=YZ0XE*VISE 

VISMi=YZOXW*VISH 

VISF1=XY0ZF*VISF 

VISB1=XY0ZB*VISB 



C 

CEP = ( ABS( CE 3 + CE 3*DXPl*DXI/( DXE«( DXE+DXH 3 3/8. 
CEM=( ABGI CE 3-CE 3*DXPl*DXI/( DXE*( DXE+DXEE 3 3/8. 
CHP = ( ADSI CN 3+CW 3*DXMl*DXI/( DXW^( DXW + DXKW 3 3/8. 
CWM=( ABS( CW 3-CW 3*DXMl*DXI/( DXW^( D»< + DXE 3 3/8. 
C 

CriP = ( ABS( CN.3+CN 3^DYN/DY J/16 . 

CNM = ( ABS( CN 3-CN 3*DYN/DYP1/16 . 

CSP = ( A3S( CS 3 + CS 3*DYS/DYM1/16 . 

CSM = ( ABS( CS 3-CS 3*DYS/DYJ/16 . 



CFP = ( ABS( CF 3+CF 3*DZP1«DZK/1 DZF«( DZF+DZB 3 3/8. 
CFM = ( ABS( CF 3-CF 3^DZPl*DZK/( DZF* ( DZF + DZFF 3 3/8. 
CBP = ( ABS( CB 3+CB 3*DZMl»DZK/( DZB*( DZB+DZBB 3 3/8 . 



00245600 

00245700 

00245800 

00245900 

00246000 

002^6100 

00246200 

00246300 

00246400 

00246500 

00246600 

00246700 

00246800 

00246900 

00247000 

00247100 

00247200 

00247300 

00247400 

00247500 

00247600 

C0247700 

00247800 

00247900 

00243000 

00246100 

00248200 

00248300 

00248400 

00248500 

00248600 

00248700 

00248800 

00248900 

00249000 

00249100 

00249200 
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00249500 
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00249600 

00249900 

00250000 

00250100 

00250200 

00250300 

00250400 

00250500 

00250600 

00250700 

00250800 

00250900 

00251000 
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CBM = ( ABS( CB )-CB )*DZMl*DZK/( D2B*( D2B + D2F ) )/8. 



AE( I ,J,K ) = -.5*DXI/DXE^CE+CEP+CEM*( 1. +DXE/DXEE )+CMM*DXK/DXE +VISE 1 
AH( I , J ,K )= .5^DXI/DXW*CH+CWM+CHP*{ 1 . +DXW/DXK^i KCEP*DXE/DXH+VI$H1 
C 

AN(I ,J,K)=-.5*CN+CNP4CNM*( l.+DYN/DYNN )+CSM*DYS/DYN+VISNl 
ASd ,J,K)= .5*CS+CSM+C$P*( 1 . tOYS/DYSS ) + CNP*DYr>l/DYS+VISSl 
C 

AF( I , J ,K )=- .5*D2K/D2F*CF+CFP+CFM*( 1 . +D2F/D2FF )+CBM*D2B/D2F + VlSFl 
AB( I,J,K)= .5*DZK/D2B*CB+CBMtCBP*( 1. +D2B/D2BB)+CFP^D2F/DZB+VISB1 



801 AEE=-CEM*DXE/DXEE 
AEER=AEE*VPD( IP2,J,K) 

802 CONTINUE 

803 AWW=-CWP*DXW/DXWW 
AWWR=AWW*VPD( IM2, J,K ) 

80^ CONTINUE 

IF (J.LT.NJ) GOTO 805 
ANN=0. 

Ar,’NR=0. 

GOTO 806 

805 Ar4N=-CNM*DYN/DYm 
ANNR=ANN*VPD( I,JP2,K) 

806 CONTINUE 

IF (J.GT.3) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 

807 A3S=-CSP*DYS/DYSS 
ASSR=ASS*VPD( I , JM2 ,K ) 

808 CONTINUE 

IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 

809 AFF = -CFM^^D2F/D2FF 
AFFR=AFF^VFD(I,J,KP2 ) 

610 CONTINUE 

IF (K.GT.2 ) GOTO 811 
ABB=0. 

ABeR=0. 

GOTO 812 

811 ABB=-CBP*DZB/D2BB 
ABBR =A5B^VPD( 1 , J ,KM2 ) 

812 CONTIf4UE 
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C *** MODIFICATION FOR DECK BOUNDARIES 

900 COrJTIMUE 

IF (NOD(IM1,J,K).EQ.O) GOTO 901 

ANW=0.0 

AHHR=0.0 

901 corjTimE 

IF (NOO(IP1,J,K).EQ.O) GOTO 902 

AEE=0.0 

AEER=0.0 

902 CONTINUE 

IF (NOO(I,JM2,K).EQ.O) GOTO 903 

ASS=0.0 

ASSR=0.0 

903 CONTINUE 

IF (NOO(I,JP1,K).EQ.O) GOTO 90*:f 

ANNro.O 

AMNR=0.0 

90^f CONTINUE 

IF (NOD(I,J,KM1).EQ.O) GOTO 905 

ABB=0.0 

ABBR=0.0 

905 CONTINUE 

IF (NOO(I,J,KP1).EQ.O) GOTO 906 

AFF=0.0 

AFFR=0.0 

906 CONTINUE 



c *** SU FROM NORMAL STRESS 

RN=( SIG22( I , J ,K )•( V( I , JPl ,K )-V( I , J ,K ) )*VISN/DYN )*D2XN 
RS=( SIG22( I , JM1,K )-( V( I , J ,K )-V( I , JMl ,K ) )*VISS/0YS I^OZXvS 
RE = (SIG12( IPl,J,K)-( V( IP1,J,K >-V( I ,J ,K ) )>VISE/DXE )^DY2E 
RN = t 3IG12( I ,J,K )-( V( I ,J,K i-V( IM1,J,K ) )*VISW/0XH )*DYZW 
RF = (SIG23(I ,J,KP1 )-( V(I,J,KP1 )-V(I,J,K ) )*VISF/D2F )*0XYF 

RB = ( SIG23( I , J ,K )-( V( I , J ,K )-V( I , J,KM1 ) )*VISB/D2B )*0XYB 

c *** SU FROM CURVED STRESSES ANO ACCELERATIONS 

AVG12=0.5*(SIG12( IPl , J ,K )+SIG12( I , J ,K ) ) 

AVG23=0.5*( SIG23( I , J,KP1 )+SIG23( I ,J,K ) ) 

AVG11=SILIN( SIGIK I , J,K J ,SIG11( I , JMl ,K ) ,DYN,DYS ) 
AVG33=SILIN( SIG33( I , J,K ) ,SIG33( I , JMl ,K ) ,DYN,0YS ) 
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AU2=V(I,J,K) 

AUl=BILlN(UaPl,J ,K),UII,J ,K),DXI,DXI, 

B. U( IPl , JMl ,K ) ,Ul I , JMI ,K ) ,UX1 ,0X1 , DYN,DYS ) 

AU3=BILIN( W( I , J ,KP1 ) ,H( I , J ,K ) ,DZK,DZK, 

B H( I , JHl ,KP1 ) 1 , JMI ,K 3 ,DZK ,DZK , DYN ,DYS ) 

AR=SILIN( R( I , J ,K ) ,Rt I , JMI ,K ) ,DYN,DYS ) 

ARU12=AR*AU1*AU2 

ARU23=AR*AU2^AU3 

ARU11=AR^AU1*AU1 

ARU33=AR*AU3*AU3 

RRX=( AVG12-ARU12 )*DZK*( DYE-DYH ) 

RRZ=( AVG23-ARU23 )*DXI*( DYF-DYB ) 

RRY=( AVG11-ARJ11)*0ZK*(DXN-DXS)+ 

& ( AVG33-ARU33 )*DXI*( DZN-DZS ) 



AP ( I , J ,K )=AE ( I , J ,K )+AW( I , J ,K )+AN( I , J ,K )+AS( I , J ,K ) 

& +AFa,J,K )+AB( I ,J,K ) + AEE + AWW+ANN+ASS*AFF+ABB 

SP( I ,J,K 3 = -(R0D(I,J,K l*DYS+RC0( I ,JM1,K )*DYN )/( DYS+DYN )*V0LDT 
SU( I , J ,K ( Root I , J ,K )*DYS^R0D( I , JMI ,K )*DYN J/( DYS+DYN )*VOLDT 
B *V0D(I,J,K) 

SU(I , J ,K )=SUf I , J ,K HDZK^DXI*( P( I , JMI ,K )-Pa , J ,K ) ) 

B ♦AEER+AKWR+ANNR+ASSR+AFFR+ABBR 

a +RE-RH+RN-RS+RF-R3+RRX+RRZ-RRY 

& -BU0Y*( ( R(I ,J ,K )-REQ( I , J ,K ) )*DYS + l R( I , JMI ,K ) 

& -R£Q( I , JMI ,K ) )^DYN )/( DYS+DYN )*V0L*SIN( ZC( K ) J*SIN( XC( I ) ) 

100 CONTINUE 



C *** TAKE CARE OF B.C. THRU AN, AS,AE ,AW ,AF , AB ,SP AND SU 
C 

C *** RADIUS DIRECTION 

DO 500 K=2,rJK 
DO 500 1=2, NI 

CC SP( 1 ,3,K )=5P(I,3,K )+AS( I,3,K ) 

SUt I,3,K)=SU(I,3,K)+ASII,3,K)*V(I,2,K) 

ASt I,3,K )=0. 

ANf I,fU,K 3 = 0. 

500 COr^TINUE 

C *** CYLIC CONDITIONS 

DO 502 K=2,NK 
DO 502 J=3,NJ 

SU(2 ,J,K)=SU(2 ,J,KKAW(2 ,J,K3*V(1 ,J,K3 

SU( NI , J ,K 3=SU( NI , J ,K 3+AEl NI , J ,K )*V( NIPl , J,K 3 
AW12 ,J,K)=0.0 
AE(NI,J,K)=0.0 
502 CONTINUE 
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C FRONT AND BACK HALL 

DO 600 1=2, NI 
DO 600 J=3,NJ 
JM1=J-1 

C *** SLIP HALLS 

SP(I,J,2 )=SP(I,J,2)+AB(I,J,2 ) 

SP( I,J,NK)=SP(I,J,NK ) + AF(I,J,hK) 

AF(I,J,NK)=0. 

AB(I,J,2)=0. 

600 CONTINUE 



C MODIFICATION FOR DECK BOUNDARIES 

DO 101 N=1,NCHIP 
I3=ICHPB(N) 

IE=IB+NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPBfN) 

JE=JB+NCHPJ(N)-1 

JBf11=JB-l 

JEPl=JE4l 

KB=KCHP3(N) 

KE=KB4NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE+1 

DO 102 J=JB,JE 
DO 102 K=KB,KE-1 

SP( IBM1,J,K )=SP( IBMl,J,K)-AEf IBM1,J,K) 
AE(IBM1,J,K j=0.0 

SP( IE ,J,K)=SP( IE,J,K)-AH( IE,J,K) 

AHl IE,J,K ) = 0.0 

102 CONTINUE 

DO 103 I=IB,IE“1 
DO 103 K=KB,KE-1 
AN( I,JBM1,K )=0.0 
AS(I,JEP1,K J=0.0 

103 corrriNUE 

DO 106 I=IB,IE-1 
DO 106 J=JB,JE 

SP( I , J,KBM1 )=SP( I ,J,KBM1 )-AF( I , J ,KBM1 ) 
AF(I,J,KBM1)=0.0 

SP(I,J,KE)=SP(I,J,KE )-AB(I,J,KE) 
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AB1I,J,KE )=0.0 
106 CO?4TI^^^JE 



C ♦** MODIFICATION FOR THE CELLS INSIDE OF THE DECKS 

DO 104 I=IB,IE-1 
DO 104 J=JB,JE 
DO lOH K=KB,KE-1 
SP(I,J,K J=-1.0E20 
AW(I,J,K J = 0. 

AE(I,J,K ) = 0. 

AS(I,J,K ) = 0, 

AN( I,J,K J=0. 

SU1I,J,KJ=0. 

104 COfiTINTJE 
101 CONTI^TJE 

105 COfTTINUE 



C 

C ASSEMBLE COE FFICIEffTS AND SOLVE DIFFERENCE EQUATI0^4S 

DO 300 K=2,NK 
DO 300 J=3,NJ 
DO 300 1=2, NI 
DXI=XL(I,J,K,2,0) 

D2K=ZL( I,J,K,2,0) 

DZX=D2K^DXI 

AP( I,J,K l = AP( I ,J,K )-SP( I,J,K) 

DV( I ,J,K J = D2X/AP(I,J,K) 

300 CONTINUE 



C *** SOLVE FOR V 



CALL TRID ( 2,3,2, NI,NJ,NK,V) 



DO 74 I=2,NIP1 
DO 74 J=2,NJP1 
V(I,J,13=V(I,J,2) 

V( I,J,Ny.Pl J=V(I,J,NK) 
74 CONTIfJUE 

DO 79 I=1,NIP1 
DO 79 K=1,NKP1 
C V(I,2,K)=V(I,3,K) 

79 CONTINUE 
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IF (NCHIP.EO.O) GOTO 112 

C *** RESET THE VELOCITY ir4SID£ OF THE DECKS 

DO 110 N=1,NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 
JB=JCHPB(N ) 

JE=JB4^XHPJ(N)-l 

KB=KCHPBIN) 

KE=KB+NCHPKINJ-1 
DO 108 I=IB>IE-1 
DO 108 J=JB,JE 
DO 108 K=KB,KE-1 
V(I,J,K)=0.0 
108 C0NTir4UE 
110 CONTINUE 
112 CONTINUE 

RETURN 

END 
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SUBROUTINE CALW 

COMNOt4/R4/XCf 93),YC( 93),ZC( 93 ) ,XS( <^3 ) , YS( 93J,2S( 93), 

5 DXXC( 93),DYYC( 93 ),DZZC( 93 ) ,DXXS( 93),DYYS( 93),DZZS( 93) 
COMMOt4/BLl/DX,DY,D2,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR 
COMNOf4/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 

6 ,NI P2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KR124 ,NCHIP ,NJRA ,NHRP 
C0MM0N/BL12/ )4;>IRITE ,NTAPE ,NTMAXO ,NTREAL ,TIME ,SORSUM,ITER 
CONNON/BL16/ COtXTl ,C0N3T2 ,C0NST3 ,COr4ST4 ,C0)4STo ,NT ,U0 ,H ,UGRT ,BUOY ,00282000 

& CPO,PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEMP,TWRITE ,TTAPE ,TMAX,GC ,RAIR00282100 
COMMON/BL20/SIG1K 22 , 16 , 32 ) ,SIG12( 22 ,lo ,32 ) ,SIG22( 22,16,32 ) 00282200 

i ,SIG13( 22,16,32 ),SIG23( 22 , 16 ,32 ) ,SIG33 ( 22,16,32 ) 00282300 

COmor4/BL22/ICHPB( 10 ) ,NCHPI( 10 ) , JCHPBl 10 ) ,NCHPJl 10 ) ,KCHPBt 10 ) , 00282400 

a NCHPKt 10 ) ,TCHP( 10),CPSl 10 ),C0f4S( 10 ),WFAN( 10 J 00282500 

COXNON/BL31/ TOD( 22 ,16 ,32 ) ,ROD( 22,16,32 ),POD( 22,16,32) 00282600 

a ,COD( 22,16,32 ),UOD( 22 ,lo ,32 ) ,VOD( 22 ,16 ,32 ) ,WDD( 22,16,32) 00282700 

CO^^^!ON/CL32/ T( 22 ,16 ,32 ) ,Rl 22 , 16 ,32 ) , P( 22 , 16 ,32 ) 00282800 

a ,C( 22,16,32 J,Ut 22,16,32 ),V( 22,16,32 ),W( 22,16,32) 00282900 

COMMON/BL33/ TPD( 22,16,32 l,RPD( 22 , lo ,32 ) ,PPD( 22,16,32 ) 00283000 

a ,CPD( 22,16,32 ),UPD( 22,16,32 ),VPD( 22 ,16 ,32 ) ,WPD( 22,16,32) 00283100 

C0MM0N/BL34/ HEIGHTt 22 ,16 ,32 ) ,REQ( 22,16,32), 00283200 

a SMP( 22,16,32 ),SMPP( 22 ,16 ,32 ) ,PP( 22,16,32), 00283300 

a DU( 22,16,32 ),DV( 22 ,16 ,32 ) ,DW( 22,16,32) 00283400 

COMMON/BL36/AP( 22 , 16 ,32 ) , AE( 22,16,32 ) ,AW( 22 ,16 ,32 ) , AN( 22,16,32), 00283500 

a AS( 22,16,32),AF(22,l6,32),ABl 22,16,32), 00283600 
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c *** 



c 



c 



; SPl CZ,16,S2 J,SU( 22,16,32 J,RH 22,16,32 ) 


00283700 


COMMON/BL37/ VIS( 22 , 16 ,32 ) ,COND( 22,16,32 l,NOD( 22,16,32 ), 


RWALL( 579 300283800 


; ,CPM( 22,16.32 ) ,HSZ‘ 3 ; 2 ) ,NHS2( 22>lb ,32 ) ,RESORM( 93 ) 


00283900 

0028^000 

0028m00 


CALCULATE COEFFICIENTS 


00284200 

00284300 


DO 100 K=3,NK 


00284400 


KP2=K+2 


00284500 


KP1=K+1 


00284600 


KN1=K-1 


00284700 


KM2=K-2 


00284800 


DO 100 J=2,NJ 


0C284900 


JP2=J+2 


00285000 


JP1=J+1 


00285100 


JM1=J-1 


00285200 


JM2=J-2 


00285300 


DO 100 1=2, NI 


00285400 


IP2=I+2 


00285500 


IPl=Itl 


00285600 


IM1=I-1 


00285700 


IM2=I-2 


00285800 


IF (I.EQ.2) IM2=NIM1 


00285900 


IF (I.EQ.NIJ IP2=3 


00286000 

00286100 

00286200 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


00286300 

00286400 


DXP1=XUIP1,J,K,3,0) 


00286500 


DXI =XL(I ,J,K,3,03 


00286600 


DXJ11=XL(IM1,J,K,3,0) 


00286700 

00286800 


DYP1=YLII,JP1,K,3,0 ) 


00286900 


DYJ =YUI,J ,K,3,0) 


00287000 


DYM1=YL(I,JM1,K,3,0) 


00287100 

00287200 


D2P1=ZL(I,J,KP1,3,03 


00287300 


DZK =ZLCI,J,K ,3,03 


00287400 


DZM1=ZL(I,J,KM1,3,03 


00287500 

00287600 


SURFACE LENGTH OF THE CONTROL VOLUME 


00287700 

00287800 


DXf4=XL(I,JPl,K,3,23 


00287^00 


DXS=XL(I,J ,K,3,2) 


00288000 


DXF=XL( I ,J,KP1,3,3 3 


00283100 


DXB=XL(I,J,K ,3,33 


00283200 

00288300 


DYF:iYL(I,J,KP1,3,33 


00288400 


DYB=YL(I,J,K ,3,33 


00288500 


DYE=YL(IP1,J,K,3,13 


00288600 


DYH=YL(I ,J,K,3,13 


00288700 

00288800 


DZE=2LaPl,J,K,3,13 


00288900 


DZW=ZLII ,J,K,3,1) 


00289000 


D2r4=ZL(I,JPl,K,3,23 


00289100 
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DZS=ZL(I,J >K,5,2) 

C *** CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 

DXEE=XL(IP2,J,K,S,1) 

DXE =XL(IP1,J,K,3,1 ) 

DXW =XL(I ,J,K,S,1 ) 

DXK'W=XL(IM1,J,K,3,1) 

DYNN=YLfI,JP2,K,5,2) 

DYN =YL(I,JP1,K,3,2) 

DYS =YL(I,J ,K,3,2) 

DYSS=YL(I,JM1,K,5,2) 

DZFF=ZL(I,J,KP2,3,3) 

DZF =ZL(I,J,KP1,3,S) 

DZB =ZL(I,J,K ,3,3) 

DZBB=ZL(I,J,KM1,3,3) 

C *** DEFINE THE AREA OF THE CONTROL VOLUME 

DXYF=DXF#DYF 

DXYB=DXB*DYB 

DYZE=DYE*DZE 

DY2H=DYW*DZH 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 



C USE SINGLE AND BI-LINEAR irrTERPOLATIOfJ TO EVALUATE 

C & PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 



GNF=SILIN( R( I , JPl ,K ) ,R( I , J,K ) ,DYP1 ,DYJ )*V( I ,JP1 ,K ) 

Gr3=SILIf4t R( I,JP1,KM1 ),RI I,J,KM1 I ,DYP1 ,DYJ )*V( I , JPl ,KM1 ) 
GSF=SILIN(R(I,JM1,K ),R(I,J,K ) ,DYM1 ,DYJ )^V( I , J ,K ) 

GSB=SILIN( R( I , JMl ,KM1 J ,R( I , J ,KM1 ) ,DYM1 ,DYJ )«V( I , J ,KM1 ) 

GF =SILIN( R( I,J,KP1 ),R(I,J,K ),DZFF,DZF )#W(I,J,KP1) 

GP =SILIN(R(I,J,KM1),R(I,J,K ),DZB ,DZF )«W( I , J ,K ) 

GB =SILIN( R( I ,J,KM2 ) ,R( I ,J,KM1 ) ,DZBB,DZB )*W( I , J,KM1 ) 

GEF=SILIN( R( IP1,J,K ) ,R( I ,J,K ) ,DXP1,DXI )*U( IP1,J,K ) 
GEB=SILIN( R( IPl ,J ,KM1 ) ,R( I , J ,KM1 ) ,DXP1 ,DXI )^U( IPl , J,KM1 ) 
GWF=SILIN(R(IM1,J,K J,R(I,J,K ) , DXMl ,DXI )«U( I ,J,K ) 
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C 



C 



C 



C 



GWB=SILIN( R( J ,R( I ,J,KM1 ) ,0XM1 ,DXI )*U( I , J,KM1 ) 

CF = 0.5*(GF+GP )*DXYF 
CB=0.5*(GP+GB)^DXYB 

CN=SILIN( GNF ,GNB,DZF ,D2B )*DZXN 
CS=SILI^4(GSF,GSB,D2F,D2B)*DZXS 

CE=SILIN(GEF,GEB>D2F,DZB)*DY2E 

CH=SILIN(GHF,GW3,D2F,D2B)*DY2W 

VISF=VIS(I,J,K J 
VISB=VIS(I,J,KM1 J 

VISN= (VIS(I,JP1,K )+VIS(I,J,K )+ 

i VIS(I,JP1,KM1 )+VIS(I,J,KMl) 

VISS= (VIS(I,JM1,K )+VIS(I,J,K )+ 

& VIS( I )+VIS( I ,J,KM1 ) )/4.0 

VISE= (VIS(IP1,J,K )+VIS(I,J,K )+ 

i VIS(IP1,J,KM1 )+VIS(I,J,KMl I )/4.0 

VISH= (VIS(im,J,Kv )+VIS(I,J,K )♦ 

I VIS( )+VIS( I ) ]/^,0 



VISN1=ZX0YN*VISN 

VISS1=2X0YS*VISS 

VISE1=Y20XE*VISE 

VISK1=Y20XW*VISW 

VI3P1=XYCZF*VISF 

VISB1=XY02B*VISB 



CEP = ( ABS( CE )+CE I*DXPl^DXI/( DXE*( DXE+DXW ) )/8. 
CEM=( A55(CE )-CE J^DXPl^DXI/( DXE^ ( DXE +DXEE ) )/8. 
CWP = ( AB5( CH )fCW )^DXnH^DXI/( DXW^^ ( DXW+DXWW J )/8. 
CWM = C ABS( CK l-CN J^^DXJ^Il^^DXI/l DXH*( DXW + DXE ) )/&, 

Cf4P = ( ABS( CN )+CN )*DYPl^^DYJ/( DYN*( DYN + DYS ) )/8. 
CNX = ( AB3( CN )-CN )^DYPl*DYJ/( DYN*( DYN + DYNN ) )/ 8 , 
CCP = ( ABS(CS )+CS )*DYM1*DYJ/C DYS^l DYS + DYS5) )/8. 
CSM = ( ABSt CS J-CS J*DYMl^DYJ/( DYS*( DYS+DYN ) )/8. 



CFP = ( AE3C CF )+CF )^D2F/D2K/16 . 

CFM = ( A53( CF )-CF 1*D2F/D2P1/16 . 

CBP = ( AB3I CB )+CB )^DZB/D2M1/16 . 

CBN=( ABS( CB )-CB )^D2B/D2K/16 . 

AE( I,J,K U-.5*DXI/DXE^^CE+CEP+CEM*( 1 . +DXE/DXEE )+CWM*DXW/DXE +VISE1 
AW( I,J,K3= .5«DXI/DX>4*CW+CWM+CKP^^( l.+DXW/DXKW ) + CEP*DXE/DXW+VISWl 
AN( I,J,K ) = -.5^DYJ/DYN^CN+CNP+CNM*( l.+DYN/DYNf4 l+CSM^DYS/DYN+VISrU 
AS( I , J ,K ) = . 5^DYJ/DYS^CStCSM+CSP* ( 1 . +DYS/DYSS )+CNP*DYN/DYS+VISSl 

AF(I,J,K) = -.5*CF+CFP+CFM«( l.+D2F/D2FF)+CBM*DZB/D2F+VISFl 
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AB( I , J ,K )= .5^<CB+CBM+CBP^( 1 . +DZB/D2BB ) ♦CFP*DZF/DZB+VISB1 



801 AEE=-CEM«DXE/DXEE 
AEER=AEE*HPD(IP2,J,K) 

802 CONTINUE 

303 AWW=-CWP^DXW/DXWW 

AHWR=AWW*KPD( IM2,J,K ) 
80^ CONTINUE 

IF (J.LT.NJ) GOTO 805 

Am=o. 

ANNR=0. 

GOTO 806 

805 ANN = -CNrt*DYN/DYNN 
ANNR=ANN*WPD( I , JP2 ,K ) 

806 CONTINUE 

IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 

807 ASS = -CSP^^DYS/DYSS 
ASSR=ASS«WPD( I , JM2 ,K ) 

808 CONTINUE 

IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 

809 AFF=-CFM^D2F/DZFF 
AFFR=AFF*WPD(I,J,KP2 ) 

810 CONTirWE 

IF (K,GT.3) GOTO 811 
A3B=0. 

ABBR=0. 

GOTO 812 

811 ABB=-CBP^DZB/DZBB 
AB3R=AB5^WPD( I , J ,KM2 ) 

812 CONTINUE 



C MODIFICATION. FOR DECK BOUNDARIES 

900 CONTINUE 

IF (NOD(IM1,J,K).EQ.O) GOTO 901 

ANN =0.0 

AWWR=0.0 

901 CONTINUE 

IF (NOD(IP1,J,K).EQ.O) GOTO 902 
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AEE=0.0 

AEER=0.0 

902 CONTINUE 

IF ir4001I,JMl,K).EQ.O) GOTO 903 

ASS=0.0 

ASSR=Q.O 

903 corfTirwE 

IF (NOD(I,JP1,K).EQ.O) GOTO 90^ 

ANN=0.0 

ANNR=0.0 



904 CONTINUE 

IF (NOD(I,J,KM2).EQ.O) GOTO 905 

ABB=0.0 

ABBR=0.0 

905 CONTINUE 

IF (NCD(I,J,KP1).EQ.0) GOTO 906 

AFF=0.0 

AFFR=0.0 

906 CONTINUE 






c *** SU FROM NORMAL STRESS 

RF = (SIG33( I,J,K )-( K(I,J,KP1 )«H(I ,J,K ) )*VISF/D2F )*0XYF 

RB = ( SIG331 1 , J ,KM1 )-( W( I , J ,K )-K( I , J ,KM1 ) )*VISB/D2B j^OXYB 
RN=( SIG231 1 , JPl ,K )-( H( I , JPl ,K )«K( I , J ,K ) )^VISri/0YN l*DZXN 
RS=( SIG231 1 , J ,K J«( H( I , J ,K )~H( I , JMl ,K ) )*VISS/0YS l*DZXS 
RE = (SIGI3( IP1,J,K )-( W( IPl ,J ,K )-W( I ,J,K ) )*VISE/DXE )*DYZE 
RN=(SIG13(I ,J,K )-(K( I ,J,K)-K( IM1,J,K ) )*VISW/0XW )*DYZH 

C *** SU FROM CURVED STRESSES AND ACCELERATIO^G 

AVG23 = 0.5^(SIG23(I ,JP1,K )+SIG23( I , J ,K ) ) 

AVG13 = 0 .5^1 SIG13( IPl , J ,K ) + SIG13( I ,J,K ) ) 

AVG22rSILI.N( SIG22( I ,J ,K ) ,SIG22t I , J,KM1 ) ,02F ,0ZB ) 
AVGll=SILIN(SIGil(I,J,K),SIGll(I,J,KMl j,0ZF,0ZB) 

AU3=H(I,J,K) 

AU2=BILIN( V( I , JPl ,K ) ,V( I , J ,K ) ,0YJ ,0YJ , 

& V( ; , JPl ,KM1 ) ,V( I , J ,KM1 ) ,DYJ ,DYJ , OZF ,0ZB ) 

AU1=BILIN(U( IP1,J,K ),U1 I,J,K ),DXI,DXI, 

S U( IP1,J,KM1 ),U( I,J,KM1),DXI ,DXI, 0ZF,02B) 

AR=SILIN( R( I,J,K),R(I,J,KM1 ),D2F,0ZB) 

ARU23=AR*AU2*AU3 
AR'J13 = AR^AU1*AU3 
ARU22=AR*AU2*AU2 
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00306100 

00306200 

00306300 

00306400 

00306500 

00306600 

00306700 

00306800 

00306900 

00307000 

00307100 

00307200 

00307300 

00307400 

00307500 

00307600 

00307700 

00307800 

00307900 

00308000 

00308100 

00308200 

00308300 

00308400 

00308500 

00308600 

00303700 

00308800 

00303900 

00309000 

00309100 

00309200 

00300300 

00309400 

003095C0 

00309b00 

00309700 

00309800 

00309900 

00310000 

00310100 

00310200 

00310500 

00310400 

00310500 

00310600 

0031C700 

00310800 

00310900 
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ARU11=AR*AU1*AU1 

RRY = ( AVG23-ARU23 DZN-DZS ) 

RRX=( AVG13-ARU13 l*DYJ*( D2E-D2H ) 
RR2 = l AVG22-ARU22 )*DXI^ ( DYF-DYB )♦ 
& I AVGll-ARUll )^DYJ*( DXF-DXB ) 



AP( I , J,K )=AE( I , J ,K )+AW( I ,J,K )+AN( I , J,K ) + AS( I , J ,K ) 

& +AF( I , J>K )+AB( I , J,K l+AEE+AHH+ANN+ASS+AFF+ABB 

SP( I ,J,K ) = -t ROD( I , J,K J«D2B+R0D( I , J ,KM1 )*D2F )/( D2B + D2F )*VOLDT 
SU( I , J,Ki= ( ROD( I , J,K )*DZB+ROD( I , J,KM1 )*D2F )/( D2B + D2F )^(VOLDT 
& *WOD(I,J,K) 

SU(I,J,K )=SU1I,J,K ) + DXI*DYJ*(P(I,J,KHl )-P(I,J,K) ) 
i +AEER*AWV4R4Ah.'NR4ASSR+AFFR+ABBR 

S ‘►RE-RW+RN-RS+RF-RB+RRY + RRX-RRZ 

S -BUOY*( (Rll ,J,K )-REQtI,J,K) )^D2B*C0S(2C(K) ) + IR(I,J, 

I KMl )-REQt I , J ,KM1 ) )^D2F*C0S( 2C( KMl ) ) )/( D2B + D2F )*VOL*SINt XC( I ) ) 
100 CONTINUE 

C *** TAKE CARE OF B.C. THRU AN ,AS,AE , AW , AP AND SU 
C 

C *** RADIUS DIRECTION 

DO BOO K=3,NK 
DO 500 1=2, NI 
KM1=K-1 

CC SP(I,2,K)=SP(I,2,K )+AS(I,2,K) 

SP( I,2,K )=SP(I,2,K )-AS(1 ,2,K) 

SU(I,2,K)=SU(I,2,K U2.0^W(I,1,K )*AS(I,2,K) 

SPl I ,NJ ,K I=SP( I ,NJ,K )-AN( I ,NJ,K ) 

AS(I,2,K)=0. 

ANtI,NJ,K)=0. 

500 CONTINUE 

C *** CYLIC CONDITIONS 

DO 502 K=3,NK 
DO 502 J=2,NJ 

SU(2 ,J,K)=SU(2 ,J,K) + AK(2 ,J,K)*W(1 ,J,K) 

SU(NI,J,K )=£U1NI,J,K )+AElNI,J,K )*Wl NIPl , J ,K ) 

AWt2 ,J,K)=0.0 
AF(NI,J,K)=0.0 
502 CONTINUE 

C FRONT AND BACK WALL 

DO 600 1=2, NI 
DO 600 J=2,NJ 

SP( I,J,NK )=SP(I ,J,NK) + AF(I ,J,NK ) 

SP(I,J,3 )=SPtI,J,3 ) + AB(I,J,3 ) 

AF(I,J,NK)=0. 

AB(I,J,3)=0. 

600 CONTINUE 
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00314500 

00314600 

00314700 
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00315000 

00315100 

00315200 

00315300 

00315400 

00315500 

00315600 

00315700 

00315800 

00315900 

00316000 

00316100 

00316200 

00316300 

00316400 
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IF (NCHIP.EQ.OJ GOTO 105 

C HODIFICATION FOR DECK BOUNDARIES 

DO 101 N=1,NCHIP 

IB=ICHPBINJ 

IE=IB*NCHPI(N)-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB*NCHPJ(N)-1 

JBM1=JB-1 

JEP1=JE*1 

KB=KCHPB(N) 

KE=K5+NCHPK(N)-1 

K5M1=KB-1 

KEP1=KE+1 



DO 102 J=JB,JE-1 
DO 102 K=KB,KE 

SPl IBMl,J,K)=SPt IBM1,J,K )-AE( IBM1,J,K ) 

SU( IBM1,J,K 1=SU( IBM1,J,K J*AE(IBM1,J,K )*WFAN( N 1*2 . 0 
AEi IBM1,J,K J=0.0 



SP(IE ,J,K 1=SP(IE,J,K l-AK(IE,J,K) 

SU( IE , J ,K )=SU( IE , J,K )*AWl IE , J ,K )*WFAI4( N )*2 .0 
AN(IE,J,KJ=0.0 

102 CONTI r4UE 

DO 103 I=IB,IE-1 

DO 103 K=KB,KE 

SP( I , JBr:i ,K }=SP( I ,JBM1 ,K )-AN( I , JBM1,K ) 

SU( I , JBMl ,K USU( I , JBMl ,K )*ANl I , JBMl ,K )*WFAN( N )*2 . 0 
AN(I,JBM1,K)=0.0 

SP( I ,JE,K 1=SP( I,JE,K)-AS(I,JE,K ) 

SU( I ,JE,K ) = SU( I ,JE,K J^AS( I,JE,K )*hr AN( N )*2 . 0 
ASfI,JE,Ki=0.0 
1C3 CCNTIfTJE 

DO 106 I=IB,IE-1 

DO 106 J=J&,JE-1 

SU(I,J,KBM1 )=SU(I,J,KBM1 ) + AF(I,J,K5Nl J*HFAN(N) 

SU( I , J ,KEPi )=SU( I , J,KEP1 J+AB( I ,J,KEP1 J*WFAN(N ) 
AF(I,J,K5M1 1 = 0.0 
AB(I,J,KEP1)=0.0 
106 CONTI ^4UE 

C *** FOR THE CELLS INSIDE OF THE DECKS 
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00321200 
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DO 104 

DO 104 J=JB,JE-1 
DO 104 K=KB,KE 
SP(I,J,K ) = -1.0E2 
AH(I,J,K )=0. 

AE(I>J,K 1=0. 

AS(I>J,K )=0. 

Ar^(I,J,K)=0. 

ABa,J,KJ = 0. 

AF(I,J,K ) = 0. 

SU( I>J,K ) = 1.0E2 ♦ HFAN(N) 

104 CONTINUE 
101 CONTINUE 

105 CONTirWE 






C ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 



DO 301 K=3,NK 
DO 301 J=2,NJ 
DO 301 1=2, NI 
DXI=XL(I,J,K,3,0) 
DYJ=YL(I,J,K,3,0 J 
DXY=DXI*DYJ 

AP( I ,J,K )=AP( I ,J ,K )-SP( I ,J,K ) 
DH(I,J,K )=DXY/AP(I ,J,K) 

301 COrjTINUE 



C *** SOLVE FOR W 

CALL TRID (2,2,3,NI,NJ,NK,W) 
C 

DO 76 1=1, NI 
DO 76 J=1,NJ 
W(I,J,2)=W(I,J,3) 

H(I,J,NKP1 J=H(I,J,NKJ 
76 CONTINUE 



IF (NCHIP.EQ.O ) GOTO 112 

C RESET THE VELOCITY INSIDE OF THE DECKS 

DO 110 N=1,NCHIP 
IB=ICHPB(NJ 
IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 
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o o 



108 

110 

112 



KB-KCHPB(N ) 
KE=KB+NChPK(N )-l 

DO 108 I=IB,IE-1 
BO 105 J=JB,JE-1 
CO 103 K=K3,KE 
Hi I >J,K )=WFAN(N) 
CONTINUE 
COr4TIN»UE 
CONTINUE 

RETURN 

END 



00ZZb600 

00326700 

0032o791 

00326800 

00326900 

00327000 

00327100 

00327200 

00327300 
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00327600 
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SUBROUTINE CALP 

■•%^vrvrwvrwwwvrwwwwwx^ww -w-%^w ww ww'wwww'-w wv/i^ w^wwwww\^ w w^w w wwwww_:w w wwww ’ww ww.A# 

WT 

COmOf4/R4/XC( 93 ),YC( 93 ) ,2C ( 93 ) ,XS( 93 J,YS( 93 ),2S( 93), 

& DXXCi 93 ) ,DYYC( 93 ) ,DZZC( 93 ) ,DXXS( 93 ) ,DYYS( ) ,DZ2S( 93 ) 

C0MM0N/BL1/DX,DY,DZ,V0L,DTIME,V0LDT,TH0T,TC00l,PI,Q,QR 
CCNM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
& ,NIP2,r4JP2,NKP2,NA,NAPl,NAMl,N3,N3Pl,NBMl,KRUN,NCHIP,NJRA,NHRP 
C0NM0N/'BL12/ NHRITE ,NTAPE ,NTMAX0 ,NTREAL ,TIIiE ,S0RSUM ,ITER 
COMNON/BL le/ CONSTl ,C0riST2 ,COt4ST3 ,C0riST4 ,C0NST6 ,NT ,U0 ,H ,UGRT,BU0Y ,0032®000 
& CP0,PRT, CONDO, VISO,RHC0, HR, TR,TA,DTEMP,TWRITE ,TTAPE ,TMAX ,GC ,RAIR00329100 
COMnON/5L22/ICHPBi 10 ) ,NCHPI ( 10 ) , JCHPBi 10 ) ,NCHPJ( 10 ) ,KCHPB( 10 ) , 00329200 

I NCHPKi 10 ) ,TCKP( 10 ) ,CPS( 10 ) ,C0NS( 10 ) ,HFANi 10 ) 00329300 

C0MM0N/BL31/ T0D( 22 , lo ,32 ) ,R0D( 22 , 16 ,32 ) ,P0D( 22,16,32 ) 00329 h00 

& , COD ( 22,10,32 ),U0D( 2 2 ,16 ,32 ) ,VOD( 22 , 16 ,32 ) ,K0D( 22,16,32) 00329500 

C0MN0N/3L32/ T( 22 , 16 ,32 ) ,R( 22 , 16 ,32 ) ,P( 22,16,32 ) 00329600 

& ,C( 22,lo,32 ),U( 22,16,32 1 ,V( 22 , 16 , 32 ) ,H( 22 , 16 *32 ) 00329700 

COMMON/BL33/ TPDi 22 , lo ,32 ) ,RPDi 22, lo, 32 ) ,PPD( 2 2,16,32 ) 00329800 

& ,CPD( 22,lo,32),UPD( 22 , 16 ,32 ) , VPD( 22 ,16 ,32 ) ,WPD( 22,16,32 ) 00329900 

COMMON/BL34/ HEIGHTi 22,16,32 ) ,REQ( 22,16,32 ), 00330000 

i SM»( 22,16,32 ),SMPP( 22 ,16 ,32 ) ,PP( 22 ,16,32 ), 00330100 

& DUi 22,lo,32 i,DV( 22 ,16,32 ) ,DW( 22,16,32 ) 00330200 

COMNON/3L3o/AP( 22,16,32 ),AE( 22 , 16 , 32 ) , AWi 22 , 16 ,32 ) , AN( 22,16,32 ), 00330300 

& ASi 22,lo,32 ),AF( 22,16,32 ) , ABi 22 * lt> , 32 ) , 00330400 

& SP( 22,16,3 2 ),SU( 22,lo,32 ) ,RI ( 22 ,lo ,32 ) 00330500 

COmON./BL37/ VIS( 22,lo,32 ),C0NDi 22 , lo , 32 1 ,N0D( 22,16,32 ) ,RKALL( 579 )00330600 



& 



C *** 



, ,CPM( 22,lt),32 ),H5Zi3,2),NH3Zi 22 ,16 ,32 ) ,RESORm 93 ) 


00330700 




00330800 


CALCULATE COEFFICIENTS 


00330900 

00331000 


DO 100 K=2,NK 


00331100 


KP2=K+2 


00331200 


KP1=K+1 


C0331300 


KM1=K-1 


00331400 


KN2=K-2 


00331500 


DO 100 J=2,NJ 


00331600 


JP2=J+2 


00331700 


JP1=J+1 


00331800 


JM1=J-1 


00331900 
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c *** 



c 



JM2=J-2 


00332000 


DO 100 1=2, NI 


00332100 


IP2=I+2 


00332200 


IP1=I+1 


00332300 




00332400 


IM2=I-2 


00332500 


IF (I.EQ.NI) IP1=2 


00332600 

00332700 

00332800 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


00332900 

00333000 


0XP1=XL(IP1,J,K,0,0) 


00333100 


DXI =XL(I ,J,K,0,0) 


00333200 


DXM1=XL( IM1,J,K,0,0) 


00333300 

00333400 


DYP1=YL(I,JP1,K,0,0) 


00333500 


OYJ =YL(I,J ,K,0,0) 


00333600 


0YM1=YL(I,JM1,K,0,0) 


00333700 

00333800 


DZP1=2L(I,J,KP1,0,0 ) 


00333900 


DZK =ZL(I,J,K ,0,0) 


00334000 


DZM1=ZL(I,J,KM1,0,0 ) 


00334100 

00334200 


SURFACE LENGTH OF THE CONTROL VOLUME 


00334300 

00334400 


DXN=XL(I,JP1,K,0,2 ) 


00334500 


OXS=XL( I,J ,K,0,2 ) 


00334600 


DXF=XL(I,J,KP1,0,3) 


00334700 


OXB=XL(I,J,K ,0,3) 


00334800 

00534900 


DYF=YL(I,J,KP1,0,3 ) 


00335000 


OYB=YL(I,J,K ,0,3) 


00335100 


0YE=YL(IP1,J,K,0,1) 


00335200 


DYK=YL(I ,J,K,0,1) 


00335300 

00335400 


02E=ZL(IP1,J,K,0,1 ) 


00335500 


DZ)i=ZL(I ,J,K,0,1 ) 


00335600 


0ZN=ZL(I,JP1,K,0,2) 


00335700 


DZS=ZL(I,J ,K,0,2) 


00335800 

00335900 

0033o000 


DEFINE AREA OF THE COrfFROL VOLUME 


00336100 

00336200 


OXYF=DXF^DYF 


0033b300 


DXYB=DXB^DYB 


00336400 


DYZE=DYE*DZE 


0C336500 


DYZN=DYW)^DZW 


00336600 


OZXrj=DZN*DXN 


00336700 


02XS=0ZS*0XS 


00336800 

00336900 


VOL=DXI*OYJ*DZK 


00337000 


VOLDT=VOL/OTIME 


00337100 

00337200 


RN = ( R( I , J,K )*DYP1+R( I , JPl ,K )*DYJ )/( OYPl^DYJ ) 


00337300 


RS = ( R( I , J,K )*DYM1^R( I , JM1,K )*DYJ )/( DYMl+OYJ ) 


00337400 
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RE = l R( I ,J,K )^DXPl*Rt IPl ,J,K )*DXI )/lDXPl*DXI I 00337500 

RW = ( R( I ,J,K I*>^0XM14R( IMl, J,K l-^DXI )/( DXMl+DXI I 00337600 

RF = ( R( I ,J ,K )*D2P1 + R( I >J ,KP1 )^02K )/( DZPl+DZK ) 00337700 

RB=l R1 1 , J,K )*0ZMl4Rt I , J ,KM1 )*D2K )/( DZMl+DZK ) 00337800 

00337900 

C DU ON VERTICAL WALLS ANO DV ON HORIZENTAL WALLS ARE ZERO 00336C00 



00338100 

00338200 

00338300 

00338^00 

00338500 

00338600 

00338700 

00338800 

00338900 

00339000 

00339100 

00339200 

00339300 

00339c*00 

00339500 







SMPl I,J,K ) = -(R( I ,J,K )-ROO(I,J>K ) l*VOL/DTIME-CE 4CW-CN4CS-CF4CB 


00339600 


c 




SMPt I ,J>K i = -CE4CW-CN+CS-CF4CB 


00339700 






SU(I,J,K)=SMP(I>J,KJ 


00339300 






SPtI,J,K)=0. 


00339900 




100 


COrTTINUE 


00390000 








00390100 


c 


*** 


TAKE CARE OF B.C. THRU AN, AS> AE > AW , AF ,AB >SP AND SU 


00390200 


c 






00390300 


c 


*** 


RADIUS DIRECTION 


00390900 








00390500 






DO 500 K=2,r^ 


00390600 






DO 500 1=2, ru 


00390700 






ASII,2,K) = 0. 


00390800 






AN( I ,NJ,K i=0. 


00390900 




SCO 


CCNTirJUE 


00391000 








00391100 


c 




LEFT WALL AND RIGHT WALL 


00391200 








00391300 






DO 501 K=2,NK 


00391900 






DO 501 J=2,NJ 


00391500 


c 




AW( 2,J,K ' = 0. 


00391o00 


c 




AEINI,J,KI=0. 


00391700 




501 


CONTINUE 


C0391800 








00391000 


c 




FROfTT AND BACK WALL 


005h2000 








00392100 






DO 502 1=2, NI 


00392200 






DO 502 J=2,NJ 


00392300 






AB( I,J,2 )=0.0 


00392900 






AF(I,J,NK)=0.0 


00392500 


502 


corrriN’UE 


00392600 








00392700 








00392800 








00392900 



AN( I • J ,K URN*DZXN^<DV( I , JPl ,K ) 
ASt I , J ,K 1 =RS*DZXS^DV( I , J ,K ) 
AEt I , J>K 1=RE*DYZE«0U( IPl ,J >K ) 
AWl I , J ,K )=RW*0YZW*0U( I , J ,K ) 
AF( I ,J,K J = RF*DXYF*0W( I ,J,KP1 ) 
ABt I , J,K J=RB*DXYB*DW( I ,U,K ) 

CN=RN*V1 I , JPl ,K )*DZXN 
CS=RS«VII,J >K)*DZXS 
CE=RE*U1IP1,J,K)^^DYZE 
CW=RW*UtI >J,K)*DY2W 
CP=RF*W( I , J ,KP1)*0XYF 
CB=RB*WtI,J>K )*DXYB 



IF (NCHIP.EQ.O) GOTO 105 

c *** MODIFICATION FOR DECK BOUNDARIES 

DO 101 N=1,NCHIP 

IB=ICHPB(N J 

IE=IB+NCHPI(NJ-1 

IBM1=IB-1 

IEP1=IE+1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N J-1 
JBM1=JB-1 
JEP1=JE+1 
KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 

KBM1=KB-1 

KEP1=KE+1 

DO 102 J=J5,JE-1 
DO 102 K=KB,KE-1 
AE(IEM1,J,K)=0.0 
AW(IE,J,K)=0.0 

102 CONTir>IUE 

DO 103 I=IB,IE-1 
DO 103 K=KB,KE-1 
AN( I,JBM1,K )=0.0 
AS(I,JE,K J=0.0 

103 CONTINUE 

DO 106 I=IB,IE-1 
DO lOo J— JEjOE*"! 

AF(I,J,KBM1 ) = 0.0 
AB(I,J,KE)=0.0 
106 CONTINUE 

C *** FOR THE CELLS INSIDE OF THE DECKS 

DO 10^^ I=IB,IE-1 
DO 104 J=JB,JE-1 
DO IOh K=KB,KE-1 
SP(I,J,K ) = -1.0E20 
AN(I,J,K)=0. 

AE(I,J,K)=0. * 

AS( I ,J,K )=0. 

ArHI,J,K 1 = 0 . 

SU( I,J,K)=0. 

104 CONTINUE 
101 CONTirJUE 

105 CONTINUE 
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00343100 

00345200 

00345300 
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C #** ASSEMBLE COEFFICIEr^^^S AND SOLVE DIFFERENCE EQUATIONS 

DO SOO J=2,NJ 
DO 300 1=2, NI 
DO 300 K=2,NK 

AP(I,J,K)=AN(I,J,K)^AS(I,J,K)+AE(I,J,K)4AH(I,J,K)-SP(I,J,K) 
i ♦AF(I,J,K)+AB(I,J,K) 

300 CONTINUE 

C SOLUTION OF FINITE DIFFERENCE EQUATION 

CALL TRID ( 2,2,2,NI,NJ,NK,PP J 
C THIS IS FOR CKECKING 



DO 161 I=1,NIP1 
C WRITE (6,^) I 
949 FORMAT ( ’ AW ' ) 

C WRITE (6,949) 

C WRITE (6,999) ( ( AW( I , J ,K ) ,K = 1 ,NKP1 ) , J=1 ,NJP1 ) 
161 CONTINUE 

DO 160 I=1,NIP1 
C WRITE (6,^) I 
948 FORMAT ( ' AE ’ ) 

C WRITE (6,948) 

C WRITE (6,999) ( ( AE ( I , J ,K ) ,K = 1 ,NKP1 ) , J = 1 ,NJP1 ) 
160 CONTINUE 

DO 170 I=1,NIP1 
C WRITE (6,*) I 
958 FORMAT ( ’ AB ' ) 

C WRITE ( 6,958 ( 

C WRITE (6,999) ( ( AB( I , J ,K ) ,K=1 ,NKP1 ) , J = 1 ,NJP1 ) 
170 CONTINUE 

DO 180 I=1,NIP1 
C WRITE (6,^) I 
968 FORMAT ( ' AF * ) 

C WRITE (0,968) 

C WRITE ( 0,999) ( (AF(I,J,K),K = 1,NKP1),J=1,NJP1) 

180 COrNINUE 

C WRITE (6,999) ( ( 5U( 1 ,5 ,K ) ,K = 1 ,NKP1 ) ,1 = 1 ,NIP1 ) 
CO 190 I=1,NIP1 
C WRITE (6,^^) I 
978 FORMAT ( ' SU * ) 

C WRITE (6,978) 

C WRITE (6,999) ( ( SU( I , J ,K ) ,K=1 ,NKP1 ) , J=1 ,NJP1 ) 
190 CONTINUE 

DO 191 I=1,NIP1 
C WRITE (6,*) I 
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C WRITE (6,988) 

988 FORMAT ( ' PP • ) 

C WRITE (6,999) ( ( PP( I , J ,K ) , J = 1 ,NJP1 ) ,K = 7 , 7 ) 

191 CONTINUE 
999 FORMAT (1CE10.3) 



C *** CORRECT VELOCITIES AND PRESSURE 
C 

C *** CORRECTION FOR VELOCITY U 

DO 600 1=2, NI 
IM1=I-1 

IF (I.EQ.2) IM1=NI 
DO 600 J=2,NJ 
DO 600 K=2,NK 

U(I,J,K)=U(I,J,K)+DU(I,J,K)^(PP(IM1,J,K)-PP(I,J,K) ) 
600 CONTINUE 

C *** CORRECTION FOR VELOCITY V 

DO 603 J=3,NJ 
JM1=J-1 
DO 603 K=2,NK 
DO 603 1=2, NI 

V(I,J,K )=V(I,J,K)+DV(I,J,K)*(PP(I,JM1,K)-PP(I,J,K) ) 
603 COtfriNUE 

C *** CORRECTION OF VELOCITY W 

DO 604 K=3,NK 
KM1=K-1 
DO 604 1=2, NI 
DO b04 J=2,NJ 

K(I,J,K 1=W(I,J,K) + DW(I,J,K)*(PP(I,J,KM1)-PP(I,J,K) ) 
604 COrjTirRJE 



C *** CORRECTION FOR PRESSURE P 

DO 606 J=2,NJ 
DO 606 I=1,NIP1 
DO 606 K=1,NK 

P(I,J,K )=P(I,J,K)+PP(I,J,K) 
PP(I,J,K)=0. 

606 CONTINUE 

C *** THIS IS FOR R=0.0 CASE 

DO 75 I=1,NIP1 
DO 75 K=1,NKP1 
U(I,1,K)=U(I,2,K) 
W(I,1,K)=W(I,2,K) 
V(I,2,K)=V(I,3,K) 
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75 CONTINUE 



*** MODIFICATION FOR R=0.0 

DO 55 K=2,NK 

VY=0.0 

VX=0.0 

VZ=0.0 

DO 50 1=2, NI 

VY=VY^U( I,2,K )*COS!XS(I ) ) 
VX=VX-U(I,2,K)*SIN(XS(I ) ) 

50 CONTINUE 

DO 51 I=2,NI 

VY=VY+V( 1 ,2 ,K )*SIN( XC( I ) ) 
VX=VX+V( I,3,K )*COS(XC(I) ) 
VZ=V2^H(I,2,K) 

51 CONTINUE 



C *** FIND THE VELOCITIES AT R=0.0 
DO 52 I=1,NIP1 

U( 1 ,1 ,K ) = ( -VX^SINt XS( I ) )+VY*COS( XS( I ) ) )/NIMl 
VII ,2,K )= ( VX*COS(XC( I ) )+VY*SIN(XClI i ) )/NIMl 
H(I,1,K)=VZ/NIM1 
52 CONTINUE 
55 COr^TINUE 



C THIS IS FOR THE CYLINDER ONLY (CYLIC CONDITION) 

DO 76 J=1,NJP1 
DO 76 K=1,NKP1 
U( 1,J,K )=U(NI,J,K) 

U(NIP1,J,K)=U( 2,J,K) 

V(1,J,K r=V!NI,J,K) 

V(NIP1,J,K t = VI 2,J,K) 

W(l,J,Ki=W(r:i,J,K) 

W(NIP1,J,K)=K( 2,J,K) 

76 CONTINUE 

C THIS FOR SPHERE 0^4LY 

DO 77 I=1,NIP1 
DO 77 J=l,NJPl 
U(I,J,1)=U(I,J,2) 

V(I,J,1)=V(I,J,2) 

WII,J,2)=W(I,J,3) 

U( I,J,NKP1 )=UtI 
V(I,J,NKP1 )=V(I,J,r^v) 

H(I,J,NKP1)=H(I,J,NK) 

77 CONTINUE 
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IF (NCHIP.EQ.O ) GOTO 116 

C *** RESET THE VELOCITY INSIDE OF DECK 

DO 120 N=1,NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 



DO 109 I=IB,IE 
DO 109 J=JB,JE-1 
00 109 K=KB,KE-1 
U(I,J,K)=0.0 
109 CONTINUE 

00 118 I=IB,IE-1 
00 118 J-JB,JE 
00 118 K=KB,KE-1 
V(I,J,K)=0.0 

118 CONTir^E 

DO 119 I=IB,IE-1 
00 119 J=JB,JE-1 
DO 119 K=KB,KE 
KfI,J,K)=WFAN(N) 

119 COfTTINUE 

120 COfiTINUE 
116 COr^TINUE 

C RECALCULATE THE ERROR SOURCE AFTER CORRECTIONS OF U, V, P 

S0R3UM=0. 

RE30RM(ITER)=0. 

DO 700 J=2,NJ 

JP1=J+1 

JM1=J-1 

DO 700 1=2, NI 

IP1=I+1 

IM1=I-1 

DO 700 K=2,NK 

KP1=K+1 

KM1=K-1 



C CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
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DXP1=XL(IP1,J,K,0,0 ) 
DXI =XHi ,J>K,0,0) 
DXM1=XL(IM1,J,K,0,0) 

DYP1=YUI,JP1,K,0,0) 
DYJ =YL(I,J ,K,0,0J 
DYM1=YL(I,JM1,K,0,0) 

D2P1=2L(I,J,KP1,0,0) 
D2K =2L(I,J,K ,0,0) 
D2M1=2UI,J,KM1,0,0) 



C *** SURFACE LENGTH OF THE CONTROL VOLUME 

DXN=XL(I,JP1,K,0,2) 

DXS=XL( I,J ,K,0,2) 

DXF=XL( I,J,KP1,0,5) 

DXB=XL(I,J,K ,0,3) 

DYF=YL(I,J,KP1,0,S) 

DY3=YL(I,J,K ,0,3) 

DYE=YL(IP1,J,K,0,1) 

DYH=YL(I ,J,K,0,1) 

D2E=2L(IP1,J,K,0,1) 

D2H=2L< I ,J,K,0,1) 

D2N=2L(I,JP1,K,0,2) 

D2S=2L(I,J ,K,0,2) 



C DEFINE AREA OF THE CONTROL VOLUME 

DXYF=DXF*DYF 

DXYB=DXB^^DYB 

DY2E=DYE^D2E 

DY2N=DYH*D2H 

D2XN=D2N^DXN 

D2XS=D2S^DXS 

V0L=DXI^DYJ*D2K 

VOLDT=VOL/DTIME 



Rf4=l R( I , J ,K )*DYP1+R( I , JPl ,K )*DYJ )/( DYPl + DYJ ) 
RS=( R( I , J ,K )^DYM1 + Rl I , JMl ,K )^DYJ )/( DYMl^DYJ ) 
R£ = (Rl I,J,K I*DXP1 + R(IP1,J,K)*DXI )/(DXPl + DXI ) 
R( I , J,K )^^DXm + R( IMl, J,K I^DXI )/( DXMl + DXI ) 
RF = (R(I,J,K)*D2P1*R(I,J,KP1 )*D2K )/( D2PH-D2K ) 
RB = ( R{ I , J,K )^^D2M1 + R( I , J,KM1 )*D2K )/( D2M1 + D2K ) 

CN=RN*V( I , JPl ,K )*DZXN 
CS = RSWC I , J ,K )*DZXS 
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CE=RE*U( IP1,J,K )*DYZE 
CW=RW^U( I ,J,K )*DYZW 
CF=RF*W( I,J,KP1 )*DXYF 
CB=RB*W( I,J,K )^DXYB 
C SMP(I,J,K ) = -CE+CH-CN*CS-CF+CB 

SMP( I , J ,K ) = -( R( I > J ,K )-ROD(l , J,K ) )*VOL/DTIME-CE+CH-CN+CS-CF+CB 

*** SORSUM IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUITY 
EQUATUON > THIS HILL COMPARE TO SOURCE 

SORSUM=SORSUM+SMP( I , J ,K ) 

C *** RESORM IS SUM OF THE ABSOLUTE VALUE OF SMP(I,J,K) 

RESORMt ITER )=RESORM( ITER )+ABS( SMP( I , J ,K J J 
700 CONTINUE 
RETURN 
END 
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SUBROUTINE TRID( 1ST , J5T ,KST ,ISP , JSP ,KSP ,PHI ) 00377900 

C *********-?^^>****************^^^^***^******-i^*****************************00378000 



COMMCN/BL7/m ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,N3,NBP1,NBM1,KRUN,NCHIP,NJRA,NHRP 
COMMOrJ/BL36/AP( 22 , 16 ,32 ) , AE ( 22 , 16 ,32 J , AW( 22 , 16 ,32 ) , AN( 22,16,32 J, 
& AS( 22,16,32 ),AF( 22,16 ,32 ) ,AB( 22,16,32), 

£ SP( 22,16,32 ),SU( 22 , 16 ,32 ) ,RI ( 22 , 16 ,32 ) 

DIMENSION At 99),B( 99),C( 99),PHI( 22,16,32) 

C GOTO 405 

ISTM1=IST-1 
AdSTMl ) = 0. 

Ct ISTMl ) = 0. 

DO 100 J=JST,JSP 
DO 100 K=KST,KSP 
DO 101 I=IST,ISP 
A(I ) = AE(I,J,K ) 

Btl )=AHtI,J,K) 

C(1 J=AN(I ,J,K )^PHI( I,J + 1,K ) + AS(I,J,K )*PHI( I , J-1 ,K ) 

£ +AF( I, J,K )^PHIt 1 ,J,K+1J+AB( I ,J,K )*PH1( I,J ,K-1 )+SU( I,J,K ) 
TERM=l./( AP(I,J,K l-B(I )*A(I-D) 

IF (A5S(A(I)).LE.1.0E-70) Atl)=0.0 
IF (AB5(B(I)).LE.1.0E-70) B(I)=0.0 
IF (ABStCtI) J.LE.l.OE-70) C(I)=0.0 
IF (ABS(TERM).LE.1.0E-70) TERM=0.0 
A(I) = A(I)^TERM 

C(I i = (C(I )+B(I )*C(I-1))*TERM 
101 CONTIftUE 

PHI(ISP,J,K)=C(ISP) 

ISTA=IST+1 

DO 102 II=ISTA,ISP 

I=IST+ISP-II 

IP1=I+1 
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PHI(I,J,K J=A(I )*PHI(IP1,J,K)4C(I ) 
102 CONTINUE 
100 CONTINUE 

DO 2000 J=JST,JSP 
DO 2000 K=KST,KsSP 
PHI(IST-1,J,K ) = PHI(ISP,J,K ) 
PHI(ISP+1,J,K)=PHI(IST,J,K) 

2000 CONTINUE 



JSTM1=JST-1 
A( JSTMl )=0. 

C( JSTM1)=0. 

DO 200 K=KST,KSP 
DC 200 I=IST,ISP 
DO 201 J=JST,JSP 
A( J)=AN(I,J,K) 

B( J )=AS(I,J,K) 

C( J J=AE(I,J,K )^^PHI(I + 1,J,K )+AH(I,J 
& +AF(I,J>K )^PHI( I,J,K4 1 | + AB(I,J 
TERN=l./( AP( I,J,K)-B( J)*A( J-1 ) ) 

IF (ABS(A( J)J.L£.1.0E-70) A(J)=0.0 
IF ( ABS(B( J J ).LE.1.0E-70) 6(J)=0.0 
IF ( ABS(C( J)).LE.1.0E«70) C(J)=0.0 
IF ( ABS(TERM),LE.1.0H-70 ) TcRN=0.0 
A( J)=A( JJ^TERM 

C( J ) = (C( J )+B( J )*C( J-1 ) )*TERM 

201 CCrTTINUE 
PHI(I,JSP,K)=C( JSP) 

JSTA=JST+1 

DO 202 JJ=JSTA,J3P 

J=JST4JSP-JJ 

JP1=J41 

PHK I,J,K )=A( J )*PHI( I ,JP1,K )+C( J) 

202 CCrTINUE 
2C0 CONTINUE 

DO 2001 J=JST,JSP 
DO 2001 K=KsGT,KSP 
PHK IGT-1,J,K ) = PHI( ISP,J,K ) 

PHI(ISP + 1,J,K J=PHI( IST,J,K ) 

2001 CONTINUE 



KSTM1=KST-1 
A(K3TM1J=0. ♦ 

C(KSTM1 )=0. 

DO 300 I=IST,ISP 
DO 300 J=JST,JSP 
DO 301 K=KST,KSP 
A(K3=AF(I,J,K) 

B(K)=AB(I,J,K) 

C( K 3=AE( I,J,K )*PHI( I41,J,K )+AW( I ,J 
S 4AN( I ,J,K J*PHI ( I , J + 1,K )+AS( I , J 



00381100 

00381200 

00381300 

00381400 

00381500 

00381600 
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00381800 

00381900 

00382000 
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K I^^PHK I-1,J,K ) 00383000 

K )*PHI( I , J,K-1 )+SU( I , J,K ) 00383100 
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► K )<^PHI( I-1,J,K ) 00386300 

*K )*PHI( I , J-1 ,K 3 + SU( I , J,K ) 0038t>400 
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TERM=1 ./( AP( I > J,K J-B( K )^A( K-1 ) ) 

IF ( ABS( AJK ) ).L£.1.0E-70 ) A(K) = 0.0 
IF ( ABS(B(K ) ).LE.1.0E-70) B{K)=0.0 
IF ( ABS(CJK) ).LE.1.0E-70) C(K1 = 0.0 
IF ( AB3(TERri).LE.1.0E-70) TERM=0.0 
A( K)=A(K )^TERM 

C(K ) = (C( K)+BIK )*C(K“1) )*TERM 
SOI CONTINUE 

PHI(I,J,KSP)=C(KSP) 

KSTA=KST+1 

DO 302 KK=KSTA,KSP 

K=KST+KSP-KK 

KP1=K+1 

PHI! I >J,K J=A(K )*PHI( I ,J,KP1 )+C( K ) 
302 CONTItJUE 
300 CONTINUE 

DO 2002 J=JST,JSP 
DO 2002 K=KST,KSP 
PHI(IST-1>J,K)=PHI(ISP,J,K ) 

PHK ISP + 1,J,K )=PHI( IST,J,K) 

2002 CONTINUE 



GOTO 700 

4^^05 COrTTIfJUE 
^05 KSP1=KSP+1 
B(KSP1 ) = 0. 

C(KSP1 ) = 0. 

DO 600 II=IST,ISP 

I=IST+ISP-II 

DO 600 JJ=JST,JSP 

J=JST+JSP-JJ 

DO 601 KK=KST>KSP 

K=KSP+KST-KK 

KP1=K+1 

A(K )=AFJ I,J,K) 

B(K J=AB( I,J,K ) 

C(KJ=AE(I,J,K)#PHI(I+1,J>K)+AW(I,J,K)*PHI(I-1,J,K)+AN(I>J,K)* 
2 PHI( I,J + 1,K) + AS(I,J,K )*PHI(I>J-l,Ki+SU(I,J,K) 

TERM=l./(A?a,J,K)-A(K + 1 J ) 

B( K )=B(K INTERN 
C(K) = (C(K I+A(K)*C(K + 1 ) INTERN 
IF ( ABS( A(K)),LE.1.0E-70J A(K)=0.0 
IF (ABS(BJK) ).LE.1.0E-70) B(K) = 0.0 
IF ( ABS(CCK) J.LE.l.OE-70) C(K) = 0.0 
601 CONTINUE 

PHI(I,J,KSTJ=C(KST) 

KSTP1=KST+1 

DO 602 K=KSTP1,KSP 

PHI ( I , J ,K )=B( K J^PHI ( I , J ,K-1 J +C( K ) 

602 COfiTiriUE 
600 CONTINUE 
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DO 2005 J=JST,JSP 
DO 2005 K=KST,KSP 
PHK IST-1 ,J,K )=PHI( ISP,J,K ) 
PHK ISP*1,J,K) = PHI1 IST,J,K ) 
2005 CONTINUE 



JSP1=JSP>1 
B( JSPl )=0. 

C( JSPl )=0. 

DO 500 KK=KST,KSP 

K=KST+KSP-KK 

DO 500 II=IST,ISP 

I=IST+ISP-II 

DO 501 JJ=JST,JSP 

J=JSP+JST-JJ 

JP1=J+1 

A( J J = AN(I,J,K) 

B( J)=AS(I,J,K) 

C( J)=AE(I,J,K)*PHI( I*l,J,K)+AWf I,J,K)*PHI(I-1,J,K)+AF(I,J,K)» 
i PHI(I,J,K + 1 )+AB(I,J,K )*PHI(I,J,K-1 )4SU(I,J,K) 

T£RM = l./( AP( I,J,K)-A( J)^B( ) ) 

Bl J)=5( J )*TERM 

C( J ) = ( C( J)+A( J )*C( J + 1) )*TERM 
IF (ABS( A( J)).LE.1.0E-70) A(J)=0.0 
IF ( ABS(B( J) ).LE.1.0E-70 ) B(JI=0.0 
IF 1 ABS(C( J) J.LE.l.OE-70 ) C(J)=0.0 
501 CONTINUE 

PHI(I,JST,K)=C( JST) 

JSTP1=JST+1 

DO 502 J=JSTP1,JSP 

PHK I,J,K)=B( J )*PHI(I,J-1,K)+C( J) 

502 CONTINUE 
500 CONTINUE 

DO 200^ J=JST,JSP 
DO 200^^ K=KST,KSP 
PHI f IST-1, J,K ) = PHI(ISP,J,K ) 

PHI{ ISP + 1,J,K)=PHI( IST,J,K ) 

2004 corrriN”jE 



ISP1=ISP+1 

B(ISP1)=0. 

C( ISPl ) = 0. 

DO 400 JJ=JST,JSP 
J=JST+JSP-JJ • 

DO 400 KK=KST,KSP 
K=KST+KSP-KK 
DO 401 II=IST,ISP 
I=ISP+IST-II 
IP1=I*1 

A(I »=AE(I,J,K) 

B(I ) = AW(I,J,K) 

C(I )=AN(I,J,K)#PHI(I,J + 1,K)+AS(I,J,K)«PHI(I,J-1,K)+AF(I,J,K)^( 



00591900 

00592000 

00592100 

00592200 

00592500 

00592400 

00592500 

00592600 

00592700 

00592800 

00592900 

005^5000 

00593100 

00595200 

00593500 

00595400 

00595500 

00593600 

00393700 

00593800 

00393900 

00394000 

00594100 

00594200 

00394300 

00394400 

00394500 

00394600 

00594700 

00594800 

00394900 

00305000 

00595100 

00595200 

00395500 

00395400 

00595500 

00595600 

00595700 

003‘=^5300 

00595900 

0059o000 

00596100 

00596200 

00396300 

00396400 

00596500 

00596600 

00396700 

00596800 

00396900 

00597000 

00397100 

00397200 

00597300 
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& PHI(I,J,K + 1 ) + AD(I,J,K)^PHI(I,J,K-l )+SU(I,J,K) 

TERM=l./( AP( I,J,K )-A(I )*&(!♦! ) ) 

B( I )=B( I J*TERM 

C(I ) = (C(I )+A(I )*C(I + 1) )*TERM 
IF (ABS(A(I n.LE.l.OE-70 ) A(I) = 0.0 
IF (ABS(B(I)KLE.1.0E-70I B(li = 0.0 
IF (ABS(C(I)J.LE.1.0E-70) C(I)=0.0 
<h01 CONTINUE 

PHI( IST,J,K)=C(IST) 

ISTPl=IST4l 
DO ^OZ I=ISTP1,ISP 
PHI(I,J,K)=B(I )*PHI(I-1,J,K)+C(I ) 

402 C0NTI^4UE 
400 CONTINUE 

DO 2005 J=JST,JSP 
DO 2005 K=KST,KSP 
PHI(IST-1,J,K)=PHI( ISP,J,K ) 

PHK ISP41 ,J,K )=PHI( IST,J,K ) 

2005 CONTINUE 



00397400 
00397500 
00397600 
00397700 
00397800 
00397900 
00398000 
00398100 
00398200 
00398300 
00398400 
00398500 
00398600 
00398700 
00398800 
00398900 
00399000 
00399100 
00399200 
00399300 
00399400 
00399500 
00399600 
00399700 
00399800 
00399900 
00400000 
00400100 
00400200 
00400300 

COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,hlKMl 00400400 

I ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NBP1 ,NBM1 ,KRUN ,NCHIP ,NJRA ,NWRP 00400500 
COMMOrj/BL12/ NWRITE ,NTAPE ,NTMAX 0 ,NTREAL TIME ,SORSUM , ITER 00400600 

CCNMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISfiAX,QCORRT,PMl,PM200400700 
COmON/BLlb/ CONSTl, CO, N3T2,CONST3,COfJST4,CONST6, NT, U0,H,UGRT, BUOY, 00400800 
t CP0,PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEHP,TWRITE,TTAPE,TMAX,GC,RAIR00400900 



700 COrTINUE 
RETURN 
END 



BLOCK DATA 



DATA NIP2,NIP1,NI,NIM1/23,22,21,20/ 

DATA NJP2,NJP1,NJ,NJM1/17,16,15,14/ 

DATA NKP2 ,NKP1 ,NK ,^>r^;Ml/33 ,32,31 ,30/ 

DATA NAPl ,NA,NAMl,NBPl,NB,NBMl/9,8,7,27,26,25/ 
DATA UO ,TA , PRT,RHOO ,CP0 ,VIS0 ,NTMAX0/ 

& 1.0,555.86,1 .0,0. 0714, 0.24,1. 56E-4,0/ 

DATA TINF ,CNT , ABTURB . BTURB/1 .0,0. 2, 2. 0,1.0/ 
DATA GC,RAIR/32.17,53.34/ 

DATA QCORRT,PM1/1.0,0.9/ 

END 



*****^Hf*9fc***************************^HHf********* ****************** 

SUBROUTINE GRID 

C0HN0N/R4/XC( 93 ) ,YC( 93 ) ,ZC( 93 ) ,XS( 93 ) ,YS( 93 ) ,2S( 93 ) , 

& DXXC( 93 ),DYYC( 93 ) ,D22C( 93 ),DXXS( 93 ),DYYS( 93 ) ,D22S( 93 ) 

COMMON/BLl/DX ,DY ,D2 ,VOL ,DTIME , VOLDT ,THOT,TCOOL , PI ,Q ,QR 



00401000 

00401100 

00401200 

00401300 

00401400 

00401500 

00401600 

00401700 

00401800 

00401900 

00402000 

00402100 

00402200 

00402300 

00402400 

00402500 

00«+02600 

00402700 

00402800 
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C0MM0N/BL7/NI .NIPl ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 


00402900 




^ ,NIP2 ,NJP2 ,NK?2 >NA ,NAP1 ,NAM1 ,K3 ,NBP1 ,NBM1 ,KRUN,NCHIP ,NJRA ,NWRP 


00403000 

00403100 


c *** 


RENERATION OF GRID 


00403200 

00403300 




PI=<4.*ATAN(1. ) 


00403400 




DX=1.0/FLOAT(NIM1) 


00403500 


c 


DY=l./FLOAT(NJMl-2 ) 


00403600 




DY = l./FLOAT(NJMl-l ) 


00403700 




DZ=PI/FLOAT( NKM1-NB4NA-2 ) 


00403800 

00403900 

00404000 




DO 19 I=1,NIP2 


00404100 




XS(I) = (I-2)i(DX^(2.0*Pl 


00404200 


19 


CONTINUE 


00404300 

00404400 


C 


XSd ) = -DX^f2.0*PI 


00404500 


C 


XS( 2 )=0.0 


00404600 


C 


XS(3) = 0. 01^(2. 0*PI 


00404700 


C 


DO 19 1=4,13 


00404800 


c 


XSd ) = lI-3 j*DX*2.0^fPI 


00404900 


C 19 


CONTI ^^U£ 


00405000 


C 




00405100 




XS(14)=XS(13) 


00405200 


c 


XS( 13 )=XS( 14 )-0.01*2.0^fPI 


00405300 


c 


DO 18 1=15, NIPl 


00405400 


r 


XSd )=XS( 14j + d-14 )^(DX*2.0*PI 


00405500 


C 18 


CONTINUE 


00405600 


C 


XS( NIP2 )=XS( NIPl )+XS( 3 ) 


00405700 

00405800 

00405900 




YS( 1 ) = 0.000 


00406000 




YS( 2 1 = 0.025 


00406100 


C 


YS(3 )=0.05 


00406200 




DO 3 J=3,NJ 


0040o300 




YS( J) = ( J-2)^DY 


00406400 


3 


CONTINUE 


00406500 




YSINJPI )=YS(NJ) 


00406600 




YS(NJ )=YStNJPl )-3./8./12./9.6 


004C6700 




YS(NJP2 J=YS(NJP1 ) + 3./8./12./9.6 


00406800 

0040o900 


CC 


DO 3 J=4,NJ?2 


00407000 


CC 


YS( J ) = ( J-3 t^^DY 


00407100 


CC 3 


CONTINUE 


00407200 




DO 4 1=1, NIPl 


00407300 




IP1=I+1 


00407400 




DXXCd )=XSdPl)-XSd ) 


00407500 




CONTINUE 


00407600 

00407700 




DXXC(NIP2 ) = DXXC(NIP1) 


00407800 




DO 5 I=2,NIP2 


00407900 




IM1=I-1 


00408000 




D:<XS( I )=.5^( DXXCd )«^DXXCdMD) 


00408100 


5 


CONTINUE 


00408200 




DXXS(1)=DXXS(2) 


00408300 
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o o o o 





DO 7 J=1,NJP1 


00908900 

00908500 




JP1=J+1 


00908600 




DYYCU 1=YS( JPl )-YS( J ) 


00908700 




C0NTir>njE 


00908800 




DYYCl NJP2 )=DYYC ( NJPl ) 


00908900 

00909000 




DO 8 J=2,NJP2 


00909100 




JM1=J-1 


00909200 




D YYSIJ 1 = . 5* ( DYYC t J ) +DY YC ( JMl J J 


00909300 


8 


cormriUE 


00909900 




DYYSl 1 J=DYYS( 2) 


00909500 




DO 20 I=1,NIP2 


00909600 

00909700 




XCl I )=XS(I ) + DXXC(I J/2.0 


00909800 


20 


CONTTINUE 


00909900 




DO 21 J=1,NJP2 


00910000 

00910100 




YC( J )=YS( J)+DYYC( J)/2.0 


00910200 


21 


corrriNUE 


00910300 




DO 9 K=9,NA 


00910900 

00910500 

00910600 




2S(K)=lK-3 )^DZ 


00910700 


9 


CONTINUE 


00910800 




DO 30 K=NBP1,NK 


00910900 

00911000 




2S(K »=2S(NA) + (K-NB)*D2 


00911100 


30 


CONTINUE 


00911200 




DO 31 K=NAP1,NB 


00911300 

00911900 




25tK )=PI/2. 


00911500 


31 


CCNTiNnjE 


00911600 




ZSi 1)=0.0 


00911700 

00911800 




2S1 2)=0.05 


00911900 




2S(3)=0.10 


00912000 




2Sir.'KPl I=2S(NKM1 ) 


00912100 




2S1NK )=23( NKPl )-0.05 


00912200 




23(NKM1 l=23tNKPl J-O.IO 


00912300 




23(r:rvP2 i=zscr>r<;pi j+o.os 


00912900 




2StNKP2 )-2S(NK) 


00912500 

00912b00 




ZSINKPI )=2S(NKP2 )-0.05 


00912700 




231 NK )=23( NKP2 )-0 . 10 


00912800 






00912900 

00913000 




DO 10 K = l,tJKPl 


00913100 




IF IK.GE .NA.AND.K.LT.NB) GOTO 10 


00913200 




KP1=K+1 


00913300 




D22C1 K ^=2S( KPl )-2S( K ) 


00913900 


10 


COMTir^E 


00913500 




DO 32 K=NA,NBM1 


00913600 

00913700 




D22C 1 K ) = 2 . 859/ 1 NB-NA ) 


00913800 



196 



32 CaMTINU£ 



DZZC(r'4KP2 )=DZZC(NKP1 ) 

DO 11 K=2,NKP2 

C IF (K.EQ.NA.OR.K.EQ.NB) GOTO 11 
KM1=K-1 

DZZSt K )= .5*( DZZCt K )+-DZZC( KMl ) ) 

11 CONTINUE 

DZZS(1)=DZZS(2) 

DO 22 K=1,NKP2 

IF (K.GE.NA.AND.K.LT.NB ) GOTO 22 
ZC(K )=ZS(K )+DZZC(K)/2.0 
22 CONTINUE 

DO 33 K=NA,NBM1 
ZC(K )=PI/2. 

33 CONTINUE 

IF ( YS( 1 ).LT.0.0 ) Y3( 1 )=0.0 
IF (YC(l).LT.O.O) YC(1)=0.0 
PRINT * 

PRINT *,• INPUT COORDINATE OF THE TANK IN THE ORDER OF * 



PRINT *,* I 


X$ 


YS 


ZS 


XC 


YC*, 


ZC 

, , *DYYC DZZC* 

DO 12 I=1,NKP2 


DXXS 


DYYS 


DZ2S 


DXXC 


1 



WRITE( 6,102) I,XS(I),YS(I ),ZS(I ),XC(I),YC(I ),ZC(I ), 

X DXXSt I ) ,DYYS( I ) ,DZZS( I ) ,DXXC( I ) ,DYYC( I ) ,DZZC( I ) 

102 FORMAT( 2X,I^,12( 2X,F8.5) ) 

12 CONTI rTJE 

RETURN 

END 



FUNCTION XL( I,J,K,M,N) 



C 


WHEN 


N 


OR 


U 


- 


1 


THEN SHIFT 
HALF CELL 1 


CELL IN THE NEG 
[STAGGERED CELL) 


X 


DIRECTION 


ONE* 

* 




WHEN 


M 


OR 


u 




2 


THEN SHIFT 
HALF CELL 1 


CELL IN THE NEG 
[STAGGERED CELL) 


Y 


DIRECTION 


ONE* 

* 


C 

c 


WHEN 


M 


OR 


N 




3 


THEN SHIFT 
HALF CELL i 


CELL IN THE NEG 
(STAGGERED CELL) 


2 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 


• 


N 


• 


1 


THEN SHIFT 
WHOLE CELL 


CELL IN THE NEG 


X 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 


~ 


N 


- 


2 


THEN SHIFT 
WHOLE CELL 


CELL IN THE NEG 


Y 


DIRECTION 


ONE* 

* 


c 


WHEN 


M 


- 


N 


- 


3 


THEN SHIFT 


CELL IN THE NEG 


Z 


DIRECTION 


ONE* 



C WHOLE CELL * 



00^13900 

OOhI^OOO 

00 h 1<^100 

00^414200 

0041^^300 

00414^00 

00414500 

00414600 

00414700 

00414800 

00414900 

00415000 

00415100 

00415200 

00415300 

00415400 

00415500 

00415600 

00415700 

00415800 

00415900 

00416000 

00^16100 

00416200 

00416300 

00416400 

00416500 

00416600 

00416700 

00416800 

00416900 

00417000 

00417100 

00417200 

00417300 

00417400 

00417500 

00417600 

00h17700 

00417800 

00417900 

00418000 

00418100 

00^18200 

00h18300 

00418400 

00418500 

00418600 

00418700 

00418800 

00416900 

00419000 

00419100 

00419200 

00419300 
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C0MM0N/R4/XC( 95 ),YC( 95 ),ZC( 95 ),XS( 95 ),YS( 95),ZS( 95 ) , 

& DXXC( 95 ) ,DYYC( 93 ) ,DZZC( 95 ) ,DXXS( 93 ) ,DYYS( 95 ) ,DZZS( 95 ) 

X1=XC(I ) 

X2=YC( J) 

X3=ZC(K ) 

DXL=DXXC(I) 

IF(M.EQ.N) GOTO 100 

IF(M.EQ.l.OR.N.EQ.l) X1=XS( I ) 

IFlM.EQ.l.OR.N.EQ.l ) DXL=DXXS(I) 

IF(M.EQ.2.0R.N.EQ.2 ) X2=Y$(J) 

IF(M.EQ.3.0R.N.EQ.5) X5=ZS(K) 

GOTO 1000 

100 IF(M.EQ.l) X1=XC(I-1) 

IF(M.EQ.l) DXL=DXXC(I-1) 

IF(M.EQ.2 ) X2=YC( J-1 ) 

IF(N.EQ.5) X3=ZC(K-1) 

1000 CONTINUE 

XL=X2*SIN(X3)*DXL 

RETURN 

END 



C ***^(***-)»-*************^* 

FUNCTION YL(I,J,K,M,N) 



c 

c 


KHEN 


M 


OR 


N 


- 


1 


THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 


X 


DIRECTION 


ONE* 


c 

c 


WHEN 


M 


OR 


N 


- 


2 


THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 


Y 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 


OR 


N 




5 


THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 


Z 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 


- 


N 


- 


1 


THEN SHIFT CELL IN THE NEG 
WHOLE CELL 


X 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 




U 




2 


THEN SHIFT CELL IN THE NEG 
WHOLE CELL 


Y 


DIRECTION 


ONE* 

* 


c 

c 


WHEN 


M 




N 


- 


5 


THEN SHIFT CELL IN THE NEG 
WHOLE CELL 


Z 


DIRECTION 


ONE* 

* 



C^^*****-)r*****************^**^*-)t*****-<f************************^Hf* 

C0MM0N'/R4/XCl 95 ) , YC I 93 ) ,ZC( 93 ) ,XSr 93 ) ,YS( 95 ) ,ZS( 95 ) , 

S DXXC( 93 ) ,DYYC( 93 i ,DZ2C( 93 J ,DXXS( 93 ) ,DYYS( 93 J ,DZZS( 95 ) 

X1=XC( I ) 

X2=YC( J ) 

X3=ZCIK) 

DYL=DYYC( J)- 
IF(M.EQ.N) GOTO 100 



IF(M.EQ.2.0R.N.EQ.Z ) X2=YS(J) 
IF(N.EQ.2.0R.N.EQ. 2 ) DYL=DYYS( J) 
IF(M.EQ.l.OR.N.EQ.l) X1=XS(I) 
IF(M.EQ.3.0R.N.EQ.5) X5=ZS(KJ 
GOTO 1000 

100 IF(M.EQ.2) X2=YC(J-1) 



00919i+00 

00419500 

00419600 

00419700 

00419800 

00419900 

00420000 

00420100 

00420200 

00420500 

00420400 

00420500 

00420600 

00420700 

00420800 

00420900 

00421000 

00421100 

00421200 

00421500 

00421400 

00421500 

00421600 

00421700 

00421800 

00421900 

00422000 

00422100 

00422200 

00422500 

00422400 

00422500 

00422600 

00422700 

00422800 

00422900 

00425000 

00425100 

00423200 

00425500 

00425400 

00425500 

00423600 

00425700 

00425800 

00425900 

00424000 

00424100 

00424200 

00424500 

00424400 

00424500 

00424600 

00424700 

00424800 
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IF(M.EQ.2 ) DYL = DYYC( J-1) 






0092^900 




IF(M.EQ.l) X1=XC(I-1) 






00425000 




IF(M.EQ.S) X3=2C(K-1) 






00425100 


1000 


CONTINUE 






00425200 




YL=1 .OO^DYL 






00425300 




RETURN 






00425400 




END 






00425500 










00425600 










00425700 


c 


* ^ ********* ***-JHt*** *** 






00425800 




FUJCTION 2L(I ,J,K,M,N) 






00425900 


c 


*********************** 






00426000 


^ w w W w w. .w ^ w. v» ^ .1^ w. w wwwWwww’‘^w\j’wv*:^v/ww^v^wwwwwwwwwwwwww>#wwwwwww-wwwwwWww 


00426100 


c 


WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X 


DIRECTION 


ONE* 


00426200 


c 


HALF CELL (STAGGERED CELL) 




* 


00426300 


c 


WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y 


DIRECTION 


ONE* 


00426400 


c 


HALF CELL (STAGGERED CELL) 




* 


00426500 


c 


WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG 2 


DIRECTION 


ONE* 


00426600 


c 


HALF CELL (STAGGERED CELL) 




* 


00426700 


c 


WHEN M - N = 1 THEN SHIFT CELL IN THE NEG X 


DIRECTION 


ONE* 


00426800 


c 


WHOLE CELL 




* 


00426900 


c 


WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y 


DIRECTION 


ONE* 


00427000 


c 


WHOLE CELL 




* 


00427100 


c 


WHEN M = N = 3 THEN SHIFT CELL IN THE NEG 2 


DIRECTION 


ONE* 


00427200 


c 


WHOLE CELL 




* 


00427300 


C**********-)Ht***')H^*******it'if******^****^HHt-**********-)Ht')Ht****')Hf*** 


00427400 




C0MM0N/R4/XC( 93 ),YC( 93 ),2C( 93 ),XS( 93),YS( 93) 


,ZS( 93 ), 




00427500 




& DXXC( 93),DYYC( 93 ),D22C( 93 ),DXXS( 93),DYYS( 93) 


,DZZSl 93) 


00427600 




COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 


,NKM1 




00427700 


a ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,N5M1,KRUN,NCHIP 


,NJRA,NWRP 


00427800 




X1=XC( I ) 






00427900 




X2=YC( J) 






00428000 




X3=2C(K) 






00428100 




D2L=D22C(K) 






00428200 




IF(M.EQ.N) GOTO 100 






00428300 










00428400 




IF(M.EQ.2.0R.N.EQ.2 ) X2=YS(J) 






00428500 




IF(M.EQ.l.OR.N.EQ.l) X1=XS( I ) 






00428600 




IF(M.EQ.3.0R.N.EQ.3) GOTO 200 






00428700 




GOTO 1000 






00428800 










00428«)00 


200 


CONTIN^JE 






00429000 




IF (K.EO.NA.OR.K.EQ.NB ) GOTO 2000 






00429100 




X3=23(K ) 






00429200 




D2L=D22S(K) 






00429300 




GOTO 1000 






00429400 










00429500 


100 


IF(M.EQ.3) X3=2C(K-1) 






00429600 




IF(M.EQ.3) DZL=D2ZCIK-1) 






00429700 




IF(M.EQ.2) X2=YC(J-1) 






00429800 




IF(M.EQ.I) X1=XC(I-1) 






00429900 


1000 


COriTINUE 






00430000 




2L=X2^D2L 






00430100 




GOTO 300 






00430200 


2000 


CONTINUE 






00430300 



199 



o o o 



DZL1=DZ2C(K-I ) 

DZL2=DZZC(K) 

IF (K.EQ.NB) DZL1=DZZC(K) 

IF (K.EQ.NB) DZL2=DZZC(K-1 ) 
ZL=( XZ*DZL1*DZLZ )/2. 

300 CONTINUE 
RETURN 
END 



W wvfw wwwwwww w w vr ^wv/wwwwwwwwww 

FUNCTION SILINt V1,V2,D1,D2) 
*************************^ 

IF (D1.EQ.O.O.AND.D2.EQ.O.O) Dl=0.1 
IF (D1.EQ.0.0.AND.D2.EQ.0.0) D2=0.1 
SILIN=( V1*D2+V2*DI)/(DI+D2 ) 

RETURN 

END 



C *-»f*******************<f****^t*^**************** 

FUr:CTIOrJ BILINM vi , V2 ,D1 ,D2,V3 ,V4 ,D3 ,D4 ,D5 ,D6 ) 
c *->t**^***^*****************************iHHt****# 

V12 = ( V1^D2+V2*D1 )/( D1 + D2 ) 

V34 = ( V3^^D<4+V^*D3 )/( D3+D<* ) 

BILIN=( V12*Db+V34*D5)/(D5*D6) 

END 



C ****************** 

SUBROUTINE STRESS 
C ****************** 

C0NNCN/R^/XC(93J,YC(93),ZCl 93),XSI 93 ),YS( 93),ZS(93), 

5 DXXC( 93 ),DYYC( 93),DZZCI 93 ),DXXS( 93 ),DYYS( 93 ),DZZS( 93 ) 
C0hN0N/BLl/DX,CY ,DZ ,VOL ,DTIME ,V0LDT,TH0T ,TC00L ,PI ,Q,QR 
COMKON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK,NKP1 ,NKM1 

6 ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,N3,N3P1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMNON/BL20/SIG11( 22,16,32 ),SIG12( 22 , 16 ,32 ) ,SIG22( 22,16,32) 

« ,SIG13I 22,16,32 ),SIG23 1 22,16,32 ) ,SIG33( 22,16,32 ) 

COMMOf>I/BL22/ICHPB( 10 ) ,NCHPI ( 10 ) , JCHPB( 10 ) ,NCHPJI 10 ) ,KCHPB( 10 ), 

5 NCHPKI 10 ) ,TCKP( 10 ),CPSI 10 ),C0NS( 10 ) ,WFANI 10) 
CONriON/BL32/ T( 22 , 16 ,32 ) ,R( 22 , lb ,32 ) , P( 22 , 16 , 32 ) 

6 ,C( 22,10,32 ),U( 22,16,32 ),V( 22 ,16 ,32 ) ,W( 22 ,16 ,32 ) 



00930400 

00930500 

00930600 

00930700 

00930800 

00930900 

00931000 

00931100 

00931200 

00931300 

00931900 

00931500 

00931600 

00931700 

00931800 

00931900 

00932000 

00932100 

00932200 

00932300 

00932900 

00932500 

00932600 

00932700 

00932800 

00932900 

00933000 

00933100 

00933200 

00933300 

00933900 

00933500 

00933600 

00933700 

00933800 

00933900 

00939000 

00939100 

00939200 

00939300 

00939900 

00939500 

00939600 



COMMON/BL37/ VIS( 22,16,32) ,C0ND( 22,16,32) ,NOD( 22,16 ,32 ) ,RWALL( 579 )00939700 






1 ,CPMI 22,16,32 ),HSZ( 3,2), NHSZI 22 , 16 ,32 ) , RESORMI 93 ) 


00939800 

00939900 

00935000 


DO 100 K=2,NK 


00935100 


KP2=K+2 


00935200 


KP1=K+1 


00935300 


KM1=K-1 


00935900 


KM2=K-2 


00935500 


DO 100 J=2,NJ 


00935600 


JP2=Jf2 


00935700 


JP1=J+1 


00935800 



200 



c 



c *** 









OO^SS^’OO 


JM2=J-2 






0043o000 


r>r» ir*r> ▼ — o fciy 
A-C.JMX 






00^36100 


IP2=I+2 






00436200 


IP1=I+1 






00436300 


ini=i-i 






00436400 


IM2=I-2 






00436500 








00436600 


CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 


00436700 








00436800 


DXP1=XL(IP1,J,K,0,0 ) 






00436900 


DXI =XL(I ,J,K,0,0) 






00437000 


DXM1=XL(IM1,J,K,0,0) 






00437100 








00437200 


DYP1=YL(I,JP1,K,0,0 ) 






00437300 


DYJ =YL(I,J ,K,0,0) 






00437400 


DYM1=YL(I,JM1,K,0,0) 






00437500 








00437600 


DZP1=2UI,J,KP1,0,0) 






00437700 


DZK =ZL(I,J,K ,0,0) 






00437800 


DZM1=ZL(I,J,KM1,0,0) 






00437900 








00438000 


SURFACE LENGTH OF 


THE 


CONTROL VOLUME 


00438100 








00438200 


DXN=XL(I,JP1,K,0,2) 






00438300 


DXS=XUI,J ,K,0,2) 






00438400 


DXF=XL(I,J,KP1,0,3) 






00438500 


DXB=XL(I,J,K ,0,3) 






00438600 








00433700 


DYF=YL(I,J,KP1,0,3) 






00438800 


DYB=YL( I,J,K ,0,3) 






00438900 


DY£=YUIP1,J,K,0,1) 






00439000 


DYH=YUI ,J,K,0,1) 






00439100 








00439200 


DZE=ZL(IP1,J,K,0,1) 






00439300 


DZW=ZL(I ,J,K,0,1) 






00439400 


DZN=ZL(I,JP1,K,0,2) 






0043^500 


DZS=ZL(I,J ,K,0,2) 






00439600 








00439700 


CENTRAL LENGTH OF 


THE 


STAGGERED COrTTROL VOLUME FOR T 


00439800 








00439900 


DXEE=XL(IP2,J,K,0,1) 






00440000 


DXE =XL(IP1,J,K,0,1) 






00440100 


DXH =XL(I ,J,K,0,1) 






00440200 


DXKW=XL(IN1,J,K,0,1) 






00440300 








00440400 


DYNN=YL(I,JP2,K,0,2) 






00440500 


DYN =YL( I ,JP1,K,0,2) 






00440600 


DYS =YL(I,J ,K,0,2) 






00440700 


DYSS=YL(I,JK1,K,0,2) 






00440800 








00440900 


DZFF=ZL(I,J,KP2,0,3) 






00441000 


DZF =ZL(I,J,KP1,0,3) 






00441100 


DZB =ZL(I,J,K ,0,3) 






00441200 


DZB3=ZL(I,J,KM1,0,3) 






00441300 



201 







00^41^00 




LIBAR=0.5*(U(IP1,J,K )+Ul I,J,K) ) 


00441500 




VBAR=0.5*( V(I,JP1,K)+V(I ,J,K )) 


00441600 




WBAR=0.5*( W(I,J,KP1)+W( I,J,K) ) 


00441700 






00441800 




DXY=DXI*DYJ 


00^+41900 




DY2=DYJ^D2K 


00442000 




D2X=D2K*DXI 


00442100 






00442200 




SIGllt I,J,K)=2.»VIS(I,J,K1*( (U(IP1,J,K)-U(I,J,K))/DXI 


00442300 




& +VBAR*( DXN-DXS )/DXY 


00442400 




& +WBAR*(DXF-DXB )/D2X) 


00442500 






00442600 




SIG22(I,J,K)=2.*VIS(I,J,K)*( (V(I,JP1,K)-V(I,J,K))/DYJ 


00442700 




& +WBAR^t( DYF-DYB )/DY2 


00442800 




a +UBAR^t( DYE-DYW )/DXY ) 


00442900 






00443000 




SIG5S(I,J,K ) = 2.*VIS( I ,J,K ( W(I ,J,KP1 )-W(I,J,K ) )/D2K 


00443100 




a +UBAR*( DZE-DZW )/D2X 


00443200 




a +VBAR*( D2N-D2S )/DYZ ) 


00443300 


100 


CO^mNUE 


00443400 






00443500 




DO 200 K=2,NKP1 


00443600 




KP2=K+2 


00443700 




KP1::K + 1 


00443800 




KM1=K-1 


00443900 




KM2=K-2 


00444000 




DO 200 J=2,NJP1 


00444100 




JP2=J+2 


00444200 




JP1=J+1 


00444300 






00444400 




JM2=J“2 


00444500 




DO 200 I=2,NIP1 


00444600 




IP2=I+2 


00444700 




IP1=I+1 


00444800 






00444900 




IM2=I-2 


00445000 






00445100 






00445200 


c **** FOLLOWING DX, DY , 02, ARE BASED OH THE LOCAL CONTROL 


00445300 


C 


VOLUME FOR SIG12 


00445400 






00445500 


c 


IF (J.EQ.2) GOTO 300 


00445600 




DXN=XL(I,J ,K,1,0) 


00445700 




DXS=XLa,JMl,K,l,0) 


00445800 




DYE=YL(I ,J,K,2,0) 


00445900 




DYW=YL(IM1,J,K,2,0) 


00446000 




DXI=XUI ,J,K,1,2) 


00446100 




DYJ=YL(I ,J,K,2,1) 


00446200 






00446300 




DYN=YUI,J ,K,1,0) 


00446400 




DYS=YL(I,JM1,K,1,0 ) 


00446500 




DXE=XUI ,J,K,2,0 J 


00446600 




DXW=XL(IM1,J,K,2,0) 


00446700 






00446800 
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UBAR=SILIN1 Ul I , J,K ) ,U( I ,JM1 ,K ) ,DYN,DYS ) 

VBAR=SILIN1 V( I , J ,K J , V( IMl , J ,K ) ,DX£ ,DXW ) 

VIS12=BILIN( Vise I ,J,K ) ,VIS(I , JMl ,K J ,DYN ,DY5, 
i Vise IMl , J,K ) ,VIS( IMl , JMl ,K ) ,DYN ,DYS , DXE ,DKW J 

SIG12(I,J,K)= VIS12^( ( V( I,J,K )-V(IMl,J,K ) )/DXI 

« -VBAR^( DYE-DYW )/( DXI^DYJ J J 

SIG12C I , J,K )=SIG12( I ,J,K )+VIS12»( ( U( I , J ,K )-U( I ,JM1 ,K ) )/DYJ 
X -UBARi^C DXN-DXS )/( DXI*DYJ J J 

300 CO^f^I^IUE 

c **** FOLLOWING DX, DY , DZ, ARE BASED ON THE LOCAL CONTROL 
C VOLUME FOR SIG13 

DXF=XL(I,J,K ,1,0 J 
DXB=XL(I,J,KM1,1,0 J 
DZE=ZLII ,J,K,3,0 J 
DZW=2L(IM1,J,K,3,0) 

DXI=XL( I ,J,K,1,3) 

DZK=ZL(I ,J,K,3,1) 

DZF=ZL(I,J,K ,1,0) 

DZ3=ZUI,J,KM1,1,0) 

DXE=XL(I ,J,K,3,0) 

DXH=XL(IM1,J,K,3,0) 

IF ( DZF.EQ.O.O.OR.DZB.EQ.O.O.OR.DZE.EQ.O.O.OR.DZW.EQ.O.O) 

8 WRITE (6,*) I,J,K, DZF,DZB,DZE,DZW 
UBAR=SILIN( U( I , J ,K ) ,U( I , J ,KM1 ) ,DZF ,DZB ) 

K3AR=SILIN1W( I,J,Ki,W(IMl,J,K J,DXE,DXH) 

VIS13=BILIN( VIS( I ,J,K ),VIS(I , J,KM1 ) ,DZF ,DZB , 

8 Vise IMl, J, K ), Vise IM1,J,KM1 ),DZF,DZB, DXE,DXW) 

SIG13( I,J,K)= VIS13*( (W(I ,J,K )*K( IMl , J ,K ) )/DXI 

8 -WBAR^t DZE-DZW )/{ DXI*DZK ) ) 

SIG13( I ,J,K )=SIG13( I , J,K )+VIS13^<( ( Ut I ,J,K )-U( I ,J,KM1 ) )/DZK 
8 -UBAR^( DXr-DXB )/( DXI^DZK ) ) 



C **** FOLLOWING DX, DY , DZ, ARE BASED ON THE LOCAL CONTROL 
C VOLUME FOR SIG23 

DZN=ZL(I,J ,K,3,0) 

DZ3=ZL(I,JM1,K,3,0) 

DYF=YL(I,J,K ,2,0) 

DYB=YL(I,J,KM1,2,0) 

DZK=ZL(I,J,K,3,2) 

DYJ=YL(I,J,K,2,3) 

DYN=YL(I,J ,K,3,0) 

DYS=YL(I,JM1,K,3,0) 

DZF=ZL(I,J,K ,2,0) 

DZB=ZL(I,J,KM1,2,0) 



00446900 

00447000 

00447100 

00447200 

00447300 

00447400 

00447500 

00447600 

00447700 

00447800 

00447900 

00448000 

00448100 

00448200 

00448300 

00448400 

00448500 

00448600 

00448700 

00448800 

00448900 

00449000 

00449100 

00^49200 

00449300 

00449400 

00449500 

00449600 

00449700 

00449800 

00449900 

00450000 

0C4S0100 

00450200 

00450300 

00450400 

00450500 

00450600 

00450700 

00450800 

00450900 

00451000 

00451100 

00451200 

00451300 

00451400 

00451500 

00451600 

00451700 

00451800 

00451900 

00452000 

00452100 

00452200 

00452300 
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o n 



200 



998 

110 



C 

«•** 



WBAR=SILINI Wa,J,K),H( I , JMl ,K ) ,DYN,DYS ) 

VBAR=SILIN( V(I,J,K ),V(I,J,KM1 J,DZF,D2B) 

VIS23=BILINl VIS( I , J ,K J ,VISl I , JMl ,K ),0YN,DYS, 

& VISl I , J ,KM1 ) ,VIS( I , JMl ,KM1 ) ,0YN , DYS, D2F , D2B ) 

SIG23( I , J,K )= VIS23*( ( V( I , J,K )-V( I , J ,KM1 ) J/DZK 

« -VBAR*( OYF-DYB )/( DZK^DYJ ) ) 

SIG23( I ,J ,K )=SIG23( I , J,K )fVIS23^l I W( I , J ,K )-W( I , JMl ,K ) )/DYJ 
& -WBAR*( D2N-DZS i/I DZK*OYJ ) ) 



CONTINUE 
DO 110 I=1,NIP1 
DO 110 J=1,NJP1 

WRITE (6,998) I , J ,SIG11( I , J ,5 ) ,SIG12( I , J ,5 ) ,SIG13( I , J ,5 ) , 
S SIG221 I,J,5 ),SIG23( I,J,5),SIG33( I,J,5) 

FORMAT (2X,I<h,lX,I‘^,6(lX,Ell.^)) 

CONTINUE 

RETURN 

END 



00 ^ 52^00 

00^52500 

00^52600 

00^52700 

00*^52800 

00^52900 

00^53000 

00453100 

00453200 

00453300 

00453400 

00453500 

00453600 

00453700 

00453800 

00453900 

00454000 

00454100 

00454200 

00454300 

00454400 

00454500 

00454600 

00454700 

00454800 



SUBROUTINE CALQ( LU 



00455000 



***************************?f***************^***^f^^^HHi-^H^*#**^Ht***00455lOO 
CCMMON/BLl/DX ,0Y ,DZ ,VOL , DTIME , VOLOT ,THOT ,TCOOL ,PI ,Q,QR 00455200 

C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 00455210 

COMMON/EL12/ NWRITE ,NTAPE ,NTMAX0 ,NTREAL , TIME ,SORSUM , ITER 00455300 

COMMCN/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PM1,PM200455400 
C0MM0N/BL16/ CONSTl ,CONST2 ,CONST3 ,C0NST4 ,CONSTo ,NT ,U0 ,H ,UGRT , BUOY ,00455500 

5 CP0,PRT, CONDO, VISO,RHOO, HR, TR,TA,0TEMP,TWRITE,TTAPE,TMAX,GC,RAIR00455600 

COMMON/BL34/ HEIGHTl 22 . 16 ,32 ) ,REQ( 22,16,32), 00455700 

6 SM?( 22,lo,32),SMPP( 22 , 16 ,32 ) ,PP( 22,16,32 ), 00455800 

S OUl 22,16,32 ),0V( 22, lo ,32 ),0H( 22,16,32 ) 00455900 

COMMOI4/BL37/ VIS( 22,16,32 ) ,COND( 22 , 16 ,32 ) ,N00( 22 , 16 ,32 ) ,RWALU 579 )00455910 



a ,CPM( 22,16,32 ) ,HSZ(3,2 ),NHSZ1 22,16,32 ),REGORMl 93 ) 

COKMON/BL39/ALEW,PCURVE,CONSRA,FCURMl,PSOUTH,QCORR,PERROR 

C IN MA^^r^ OF THE FOLLOWING LINES A TEMPORARY CORRECTION FOR 

C * ADJUSTING QQ TO AGREE WITH THE PRESSURE HAS BEEN APPLIED. 

XTIME=TIME*H/UO 

VOLT=0.0 
DO 113 1 = 2, r^i 
DO 113 J=2,NJ 
DO 115 K=16,17 

IF (NHSZ(I,J,K).EQ.O ) GOTO 113 
DXI =XL(I ,J,K,0,0) 

OYJ =YL(I,J ,K,0,0) 

D2K =ZL(I,J,K ,0,0) 

VOL=DXI*OYJ*DZK*H*H*H 



00455920 

00456000 

00456100 

00456200 

00456300 

00456400 

00456500 

00456510 

00456520 

00456530 

00456540 

00456550 

00456560 

00456570 

00456580 

00456590 

00456591 
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VOLT=VOLT+VOL 
113 CONTINUE 



QRVOL=0. 

DO 70 1=561,579 

QRVCL=QRVOL+RWALL( I )^1 ,/l2 .*0 . 2*PI 
CONTINUE 



70 



QR=QRVOLA'OLT*UO*CPO*RHOO*TA/H 
IF (XTIME.LT.23.1 ) THEN 

PCURVE=9.789522E-5*XTIME**2-2.38S310E-6*XTIME**3+ 
S REQ(10,9,16) 

DPOT =9.789522E-5*XTIME*2-2.388310E-6^XTIME**2^3 
ELSE 



00956592 

00956593 

00956599 

00956595 

0095659b 

00956597 

00956598 

00956599 

00956600 

00956700 

00956800 

00956900 

00957000 

00957100 

00957200 



PCURVE=0.0052+.81269E-3*XTIME-.22609E-5*XTIME»«2+.27262E-8*XTIME«*00957300 



I 3-.115621E-ll^XTIME**9+REQ( 10,9,16 ) 

DPDT=.81269E-3-.22b09E-5^XTIME*2+.27262E-8*XTIME** 

& 2*3.0-.115621E-ll«XTIME**3*9 

ENDIF 

IF ( LL .EQ. 1) THEN 
QQ=1.0E8^<0PDT 
Q=CQ*3. 9139/60. /60. 

65 CCriTINUE 

Q=Q*QCORRT-QR 

ELSE 

C THIS USES A CURVE FIT THROUGH THE BURNRATE DATA GIVEN BY NRL 
CCCRRT=0.0 
QC0RR=0.0 
ITEST = 0 

BURNR1= 5.9576798 +0 . 18815396^XTIME- . 20153996E-03«XTIME**2 
BURNR2= -1.3116787 + . 33158595^XTIME - . 7392952E-03«XTINE**2 
S +.50995510E-06*XTIKE**3 

IP (XTIME .LT. 100) THEN 

BURNR= BURNR2 + 1 . 3117- . 013117*XTIME 
ELSE 

BURNR = BURNR2 
ENDIF 

IF( XTIME .LE. 300) GO TO 60 
IF(BURNR2 .LT. BURNRl ) THEN 

BURNR = (BURfJRl + BURNR2 ) / 2 
GO TO 60 

ELSE 

IF ( XTIME .LT. 600.0) GO TO 60 
IF r ITEST .EQ. 0) THEN 
BURNP3 = BURNR2 
ITEST = 1 
EfiDIF 

BURNR = BURNR3 
ENDIF 

60 Q = BURNR*2. 2096*9612. /3600.-QR 
CC THIS GIVES Q IN BTU/SEC 

ENDIF 



00957900 

00957500 

00957600 

00957700 

00957710 

00957800 

00957900 

00958000 

00958100 

00953200 

00958300 

00958900 

00958910 

00958920 

00958500 

00958600 

00958700 

00958800 

00958900 

00959000 

00959100 

00959200 

00959300 

00959900 

00959500 

00959b00 

00959700 

00959800 

00959900 

00960C00 

00960100 

00960200 

00960300 

00960900 

00960500 

00960600 

00960700 

009o0800 

00960900 
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Q=59. 213 + 0. 7195^XTIME-0.U29E-2^XTIME*<^2-0.3367E-5*XTIME**3 00460910 

0=Q*3412/3600 00460920 

RETURN 00461000 

END 00461100 

00461200 

00461300 

00461400 

00461500 

SUBROUTINE RADHT( T4WALL ,VFMXC ) 00461700 

X ¥Kmi X k »»»»*»»+hh<-»»»»-»»»»»»»O04^18OO 
COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKMl 00461900 

5 ,NIP2 ,NJP2 ,NKP2 ,NA ,NAP1 ,NAM1 ,NB ,NBP1 ,NBM1 ,KRUT^ ,NCHIP ,NJRA,NWRP 00462000 
COmON/BL16/ CONSTl ,CON3T2 ,C0NST3 ,C0NST4 ,CONST6 ,NT ,U0 ,H ,UGRT ,BUOY ,00462100 

6 CPO ,PRT , CONDO ,VISO ,RHOO , HR ,TR ,TA , DTEMP ,THRITE ,TTAPE ,TMAX,GC ,RAIR00462200 

COMMON/BL32/ T( 22,16,32 ),R( 22,16,32 ),P( 22,16,32) 00462300 

a ,C( 22,10,32 J,U( 22,16,32 ),V( 22,16,32 ),W( 22,16,32 ) 00462400 

COMMON/BL37/ VIS( 22 ,16 ,32 ) ,COND ( 22 , 16 ,32 ) ,NOD( 22 , 16 ,32 ) ,RWALL( 579 >00462500 
a ,CPM( 22,16,32 ),HS2( 3,2 ),NHS2( 22 ,16 ,32 ) ,RESORM( 93 ) 00462600 

COMNON/BL39/ALEW,PCURVE,CONSRA,PCURMl,PSOUTH,QCORR,PERROR 00462700 

00462800 

00462900 

DIMENSION VFMXC(579,579),T4WALU579) 00463000 

DO 4010 K=3,NKM1 00463100 

DO 4010 1=2, NI 00463200 

II = (K-3 l*(NI-l )+I-l 00463300 

T4HALL( II )=CONSRA*T( I ,NJRA,K )*T( I ,NJRA,K )*T( I ,NJRA,K )*T( I ,NJRA,K ) 00463400 



4010 CONTINUE 

C RADIATION FROM THE FIRE TO THE HALL 

DO 4011 J=3,9 
JJ=561+9-J 

AVT = 0.25^I T( 16,J,16)+T( 17,J,16 ) + T( 16,J,17)+T( 17,J,17 )) 
T4WALL( JJ )=CONSRA*AVT*AVT*AVT*A\'T 

4011 CONTINUE 
C 

DO 4012 J=3,14 
JJ=568+J-3 

AVT = 0.25*f T( 6,J,16 )+T( 7,J,16 )+T( 6 , J ,17 ) + T( 7 , J ,17 ) ) 
T4WALU JJ )=CONSRA*AVT*AVT*AVT*AVT 

4012 co):tinue 
C 

DO 4020 1=1,579 
RWALL( I 1 = 0.0 
DO 4020 J=l,579 

RWALL( I )=RWALL( I )+VFMXC( I , J )*T4WALL( J ) 

4020 corrriNUE 
RETURN 
END 



C 






00463500 

00463600 

00463700 

00463800 

00463900 

00464000 

00464100 

00464200 

00464300 

00464400 

00464500 

00464600 

00464700 

004o4800 

00464900 

00465000 

00465100 

00465200 

00465300 

00465400 

00465500 

00465600 

00465700 

00465800 

00465900 

00466000 

_00466100 

>^00466200 
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SUBROUTINE GLOBE 00466300 

#******->t*^*******^*jt****>****^t*#**^*^***Tit**#^**##*'i^^****»* *********00466400 
THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORRECTION, *00466500 

KHEREBY THE PRESSURE MATRIX IS UPDATED. *00466600 



VARIABLES USED ARE: 
SUMT 
SUMPT 
SUMPET 
UGRT 
PCORR 



*00466700 

= SUM OF TEMPERATURES *00466800 

= SUM OF PRESSURE OVER TEMPERATURE *004o6900 

= SUM OF EQUILIBRIUM PRESSURE OVER TEMP*00467000 

* UGRT = CONSTANT *00467100 

* PCORR = PRESSURE CORRECTION *00467200 

****»*****************»**»*»**»*****»»**»»»»»»»»»»»»**».*.*.*****.*^ * » ( »».*». * »00^67300 

C0MM0N/BL7/NI ,NIP1 ,NIM1 ,NJ ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 00467400 

& ,NIP2,NJP2,NKP2,NA,NAPl,NAMl,^a,NBPl,raMl,KRUN,NCHIP,NJRA,NWRP 00467500 
C0MM0N/BL16/ CONSTl ,C0NST2 ,C0NST3 ,C0NST4 *C0NST6 ,rTT ,U0 ,H ,UGRT , BUOY ,00467600 

5 CPO ,PRT , CONDO ,VISO ,RHOO ,HR,TR ,TA ,DTEMP ,TWRITE ,TTAPE ,TMAX ,GC ,RAIR00467700 

COMMON/BL32/ T( 22,16,32 ),R( 22,16,32 ),P( 22,16,32) 00467800 

I ,C( 22,16,32 ),U( 22,16,32 ),V( 22,16,32 ),W( 22,16,32) 00467900 

C0MM0N/BL34/ HEIGHT! 22 , lo ,32 J ,REQ( 22,16,32 ), 00468000 

6 SMPl 22,16,32 ),SMPP( 22 , 16 ,32 ) ,PP( 22,16,32), 00468100 

& DU( 22,16,32 J,DV( 22 ,16 ,32 ) ,DW( 22,16,32 ) 00468200 

COMMON/BL37/ VIS! 22 , 16 , 32 I ,COND! 22 , 16 ,32 ), NOD! 22 , 16 ,32 ) ,RWALL! 579 )00468300 



00468400 
00468500 
00468600 
00468700 
00468800 
00468900 
00469000 
00469100 
00469200 
00469300 
00469400 
00469500 
00469600 
00469700 
00469600 
00469900 
00470000 
00470100 
00470200 
00470300 
00470400 
00470500 
00470600 
00470700 
00470800 
00470900 
00471000 
00471100 
00471200 
00471300 
00471400 
00471500 

C 00471600 

*** **************-*****************************************************00471700 



& ,CPM1 22,16,32 J,HS2! 3,2 J,NHSZ! 22 , 16 ,32 ) ,RESORM! 93 ) 

SUriT=0. 

SUMPT =0. 

SUM?ET=0. 

DO 370 1=2, NI 
DO 370 J=2,NJ 
DO 370 K=2,NK 

IF !NOD!I,J,K).EQ.l) GOTO 370 
DXI=XL! I,J,K,0,0,0 ) 

DYJ=YL!I,J,K, 0,0,0) 

DZK=2L!I,J,K, 0,0,0) 

VOL=DXI*DYJ*DZK 
SUMT=SUMT^'l ./T! I , J ,K )*VOL 
SUMPT=SUM?T4P( I , J,K )/T! I ,J ,K !*VOL 
SUM?ET=SUM?ET4REQ!I,J,K)*! l./1.0-l./T!I,J,K) l*VOL 

370 CONTIWE 
SU?-1?ET=SUMPET/UGRT 
PC0RR=1 SUMPET-SUMPT )/SUMT 
FCORRN=PCORR 

DO 371 I=1,NIP1 
DO 371 J=1,NJP1 
DO 371 K=1,NKP1 
PI I , J ,K )=P! I , J ,K ) + PCORRN 

371 CONTiraiE 

RETURN 

END 
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SUBROUTINE SOLCON 



00471800 



COMMON/BL7/NI ,NIP1 ,NIM1 ,NJ,NJP1 ,NJM1 ,NK ,NKP1 ,NKM1 00472000 

& ,rUP2 ,NJP2 ,NKP2 ,NA,NAP1 ,NAH1 ,N5 ,NBP1 ,NBril ,KRUM ,NCHIP ,NJRA,NWRP 00472100 
COMMOM/BL12/ NWRITE ,NTAPE ,NTMAX0 »NTREAL ,TIME ,SORSUM,ITER 00472200 

COMMON/BL16/ CONSTl ,CON3T2 ,CONST3 ,C0MST4 , CONST© , NT ,U0 ,H ,UGRT , BUOY ,00472300 
& CFO ,PRT , CONDO ,VIS0 ,RHOO ,HR ,TR,TA ,DTEMP ,TWRITE ,TTAPE ,TMAX,GC ,RAIR00472400 
CONNON/BL22/ICHPB( 10 ) ,NCHPI ( 10 ) , JCHPB( 10 ) ,NCHPJ( 10 ) ,KCHPB( 10 ) , 00472500 

& NCHPKI 10 ) ,TCHP( 10 ) ,CPS( 10 ) ,CONS( 10 ) ,WFAN( 10 ) 00472600 

COMHON/BL37/ VIS( 22 , 16 ,32 ) ,COfJD( 22,16,32 l,NOD( 22 , 16 , 32 ) ,RWALL( 579 )00472700 



00472800 
00472900 
00473000 
00473100 
00473200 
00473300 
00473400 
00473500 
00473600 
00473700 
00473800 
00473900 
00474000 
00474100 
00474200 
00474300 
00474400 
00474500 
00474600 
00474700 
00474800 
00474900 
00475000 
00475100 
00475200 
00475300 
00475400 
00475500 
00475600 
00475700 
00475800 

C 00475900 

*** **^>-^*******-*****«)t*****-^^********9t**,f*******************************00476000 

SUBROUTINE PTRACK 0047©100 

*** **^t*******^f*******************^*************^*********************00476200 



,CPM( 22,16,32 ),HS2( 3,2 J,NHSZ( 22 ,16 ,32 ) ,RESORN( 93) 

DO 402 N=1,NCHIP 
IB=ICHPB(N) 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 
DO 405 I=IB,IE-1 
DO 405 J=JB,JE-1 
DO 405 K=KB,KE-1 
COND(I,J,K )=CCNDO*COr4S(N) 

CPM(I,J,K)=CP3(N) 

NOD(I,J,K)=l 

IF U.EQ.NJ) COND(I,NJPl,K)=COND(I,NJ,K) 

(I.EQ.2 ) COND( 1,J,K )=COND( 2 , J,K ) 

(I.EQ.NI ) COND(NIPl,J,K)=COND(NI,J,K) 
(I.EQ.2.AND.J.EQ.NJ) COND( 1 , J + 1 ,K )=COND( 2 , J ,K ) 

( I.EQ.NI .AND. J.EQ.NJ) COND( NIPl , J + 1 ,K )=COND( NI , J ,K ) 

( J.EQ.NJ) CPM(I,NJP1,K l=CPM(I,NJ,K) 

(I.EQ.2 ) CPM( 1,J,K)=CPM( 2,J,K) 

(I.EQ.NI ) CPM(NIP1,J,K i=CPMlNI,J,K) 

(I.EQ.2. AND. J.EQ.NJ) CPM( 1 , J + 1 ,K )=CPM( 2 , J ,K ) 

CPM(NIP1,J+1,K)=CPM(NI,J,K) 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

IF (I.EQ.NI. AND. J.EQ.NJ) 
405 CONTI^JUE 
402 CONTIfTJE 
RETURN 
END 



5 

6 

& 

& 



CONNON/BL14/HCOEF,TINF,C^f^,ABTURB,BTURB,VISL,VISMAX,QCORRT,PMl,PM200476300 
C0MM0rJ/BL16/ COrJSTl ,CONST2 ,C0NST3 ,C0f^T4 ,COrJST6 ,NT ,U0 ,H ,UGRT , BUOY ,00476400 
CPO ,PRT , CONDO ,VIS0 ,RHOO ,HR ,TR ,TA ,DTEHP ,TWRITE ,TTAPE ,TMAX,GC , RAIR00476500 



CONNON/EL32/ T( 22,16,32 ),R( 22,16,32 ),P( 22,16,32) 00476600 

,C( 22,16,32 ),U( 22, 16,32 ),V( 22,16,32 ),WI 2 2,16,32) 00476700 

C0MM0N/BL34/ HEIGHT( 22 ,16 ,32 ) ,REQ( 22,16,32 ), 00476800 

SMP( 22,16,32 ),SMPP( 22 ,16,32 ) ,PP( 2 2,16,32 ), 00476900 

DU( 22,16,32 ),DV( 22 , 16 ,32 ) ,DH( 22,16,32 ) 00477000 

COMMON/BL39/ALEH,PCURVE,CON3RA,PCURM1,PSOUTH,QCORR,PERROR 00477100 

00477200 
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cc 

cc 

cc 

cc 

cc 



THE FCLLONING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 0C47730O 
HEAT INPUT TO FORCE THE CALCULATED PRESSURE TO AGREE WITH THE 00h77400 
EXPERIMENTAL PRESSURE. IT WILL BE USED UtiTlL ACCURATE HEAT INPUT 00477500 
IS RECEIVED. 00477600 

00477700 

PSOUTH = P( 10,9,16 1^^C0NST1+REQ( 10,9,16 ) 00477800 
PERROR=( PCURVE-PSOUTH VPCURVE O0h 779OO 
QCORR = 1.0 + PERROR-( PSOUTH-PMl )/PCURVE 00478000 
QC0RR = 1.0 + PERR0R-( PSOUTH-PMl )/PCURVE + ( PSOUTH-PMl)/ ( PCURVE-PCURMl )*00478100 



C 



. ( PCURVE-PMl )/PCURVE 


00478200 


OCORRT = (?CORRT*OCORR 


00478300 


PCURM1=PCURVE 


00478400 


PM1=PS0UTH 


00478500 




00478600 


RETURN 


00478700 


END 


00478800 




00478900 




00479000 




00479100 




00479200 



SUBROUTINE TCP 00479400 

*** ^*if***********9Hf**************^****iHe*^HHt*******^')t-*************)^**00479500 

00479600 

* THIS SUBROUTINE CALCULATES THE TEMPERATURE AT THE TERMOCOUPLE *00479800 

* POSITIONS. *00479900 

C0M)10N/R4/XC ( 93 ) , YC ( 93 ) ,ZC( 93 ) ,XS( 93 ) ,YS( 93 ) ,ZS( 93 ) , 00480100 

& DXXCl 93 J ,DYYC( 93 ) ,DZZC( 93 ) ,DXXS( 93 ) ,DYYS( 93 ) ,DZZS( 93 ) 00480200 

C0MM0N/BL16/ CONSTl ,C0NST2 ,C0NST3 ,C0NST4 ,C0N3T6 ,NT ,U0 ,H ,UGRT , BUOY ,00480300 
I CPO ,PRT , CONDO ,VISO ,RHOO ,HR ,TR ,TA ,DTEMP ,TWRITE ,TTAPE ,TMAX,GC ,RAIR00480400 



COMMCN/BL32/ T( 22 , 16 ,32 ) ,R( 22 , 16 ,32 ) , P( 22 , 16 , 32 ) 
t ,C( 22,16,32 ),U( 22,16,32 ),V( 22,lo,32 ),W( 22,16,32 ) 

C0MM0N/BL38/fJTHC0,CX( 12 ),CY( 12 ),CZ( 12 ),NTH( 12,3),TC0UP( 12) 



DO 5100 N=1,NTHC0 
II=NTH(N,1) 

JJ=rrTH(N,2 ) 

KK=NTH(N,5) 

VOL=ABS( ( XC( II + l )-XC( II ) )*( YC( JJ+1 )-YC( JJ ) )*( ZC ( KK^l ) -ZC( KK ) ) ) 
TCOUPIN ) = 0. 

DO 5101 1=11,11+1 
111=11+11+1-1 
DO 5101 J=JJ,JJ+1 
JJJ=JJ+JJ+1-J 
DO 51C1 K=KK.,KK+1 
KKK=KK+KK+1-K 

W\UL = ABS( (XC( I )-CX(N) )*( YC( J )-CY( N ) )*( ZC( K )-CZ( N ) ) )/VOL 
TCOUP( N )=TCOUP( N )+WVOL*T( III , JJJ,KKK ) 

5101 C0r4TINUE 

TCOUP( N )=TCOUP( N )*TR-273 . 18 
5100 corrriNUE 



00480500 

00480600 

00480700 

00480800 

00480900 

00481000 

00481100 

00481200 

00451300 

00481400 

00481500 

00481600 

00481700 

004S1800 

00481900 

00482000 

00482100 

00482200 

00482300 

00482400 

00482500 

00482600 

00482700 
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RETURN 

END 



00^82800 
00h82900 
00483000 
00483100 
00483200 
00483300 

00483400 

»»»»»»»»»»»»»»»»»» 048 3500 

SUBROUTINE OUT( NN ) 00483600 

C0MM0N/BL1/DX,DY,DZ,V0L,DTIME ,VOLDT,THOT,TCOOL ,PI ,Q,QR 00483800 

C0MM0N/BL7/NI,NIP1,NIM1,NJ,NJP1>NJM1,NK,^4KP1,NKM1 00483900 

t ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRU4,NCHIP,NJRA,NWRP 00484000 
C0M'^0N/BL12/ NHRITE ,r4TAPE ,NTMAXO ,NTREAL , TIME ,SORSUM, ITER 00484100 

COMMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT,PM1,PM200484200 
C0MM0N/BL16/ CONSTl ,C0NST2 ,CCNST3,C0NST4 ,C0NST6 ,^T^,UO ,H ,UGRT,BUOY ,00484300 
& CPO ,PRT , CONDO ,VIS0 ,RHOO ,HR ,TR ,TA ,DTEMP ,THRITE ,TTAPE ,TMAX,GC ,RAIR00484400 
COMMOr4/BL32/ T( 22,16,32 ),R( 22 ,16 ,32 ) ,P( 22 , 16 ,32 ) 00484500 

fi ,C( 22,16,32 ),U( 22,16,32 ), VI 22,16,32),WI 22,16,32) 00484600 

COMMOf4/BL34/ HEIGHT! 22 ,16,32 ) ,REQ( 22,16,32 ), 00484700 

i SMP( 22,16,32 ),SMPP( 22 , it> ,32 i ,PP( 22 , 16 , 32 ) , 00484800 

& DU( 22,16,32 ),DV( 22 , 16 ,32 ) ,DK( 22,16,32 ) 00484900 

C0MM0N/BL3b/AP( 22,16,32 ) , AE ( 22 , 16 ,32 ) ,AHI 22 , 16 ,32 ) , AN( 22,16,32), 00484910 

& A3( 22,lb,32),AF( 22 , 16 ,32 ) ,AB( 22,16,32), 00484920 

& S?[ 22,16,32 ),SU( 22,16,32 ),RI( 22,16,32) 00484930 

C0KM0N/BL37/ VIS( 22 , 16,32 ) ,CONDt 22,16 ,32 ) ,NODI 22,16,32) ,RWALL( 579 )00485000 



& ,CPM( 22,16,32 ),HSZ( 3,2 ),NHSZ( 22 , 16 ,32 ) ,R£SORN( 93 ) 

C0MM0N/BL38/NTHC0,CX( 12 ) ,CY( 12 ),CZ( 12 ) ,NTH( 12,3) ,TCOUP( 12 ) 
C0MM0N/BL39/ALEH , PCURVE , CONSRA , PCURMl , PSOUTK , QCORR , PE RROR 
XTIM£=TIME*H/UO 
IF( NN .EQ. 1) THEN 

QRR=60. *60. /3. 412/1000. *QR 

NRITEI 6,500 ) XTIME ,NTREAL , TIME , ITER ,RESORM( ITER ) ,SORSUM,QRR 
500 FORMATdX, *TIME= ' ,F7.5 , ' S ' ,1X, 'NTREAL= ‘ ,19 ,1X, 

& *TIME=' ,F7.2, '<0>‘ ,1X, ‘ITER=' ,12, IX, 'SOURCE=' , 



S F9.6,1X, 'SORSUM=’ ,F9.6,1X, • QR(KH) 



' ,F10.4) 



QKW = 
PRINT 
PRirT 
&CRR 
PRirT 
PRINT 



( (60. *60. )/(3. 412*1000. ) )* Q 
* 

*, • PCURVE PSOUTH 

QCORRT Q(KW) 



PERROR 



ELSE IF( 
PRINT * 
PRINT 
WRITE 
PRINT 
PRINT 



PCURVE , PSOUTH, PERROR , QCORR , QCORRT, QKW 



NN .EQ. 2 ) THEN 



( 6 ,*) 

* 



'TEMPERATURES AT THERMOCOUPLE POSITION IN (O' 
(TCOUP(N),N=l,NTHCO) 



ELSE 



DO 502 L=25,25 



00485100 

00485200 

00485300 

00485400 

00485500 

00485600 

00485610 

00485700 

00485800 

00485900 

00486000 

00486100 

00486200 

00486300 

Q00486400 

00486500 

00486600 

00486700 

00436800 

00486900 

00487000 

00487100 

00487200 

00487300 

00487400 

00487500 

00487600 

00487700 

00487800 
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noon 



K = L 

DO 502 M=1,NIP1 
I=M 

WRITE I 6 >504) I,K 

504 FORMAT{/,2X,'I = '>I2,5X,'K=' ,I2,/,10X,' T NOD * ,3X, *R( GM/C .C . )' ,2X, 
& 'Ul CM/SEC ) ’ ,2X, 'VI CM/SEC )‘ ,2X, ' W( CM/SEC )' , 'P ( ATM)' ,5X, 'SMP' ,5X, 
& *VIS(SEC/CM-CM)' ,3X,'COND(SEC/CM“CM)' XSMP',/) 

513 DO 503 J=1,NJP1 
C XTEMP=T( I,J,K )/CONST3-273.16 

XTEMP=T( I,J,K ) 

C XR=R(I,J,K )*RHO0/2.2048 #1000 .*( 0 . 0328 )**3 

XR=R(I,J,K) 

XU=UtI,J,K )#CONST6 
XV=V( I,J,K )*C0^4ST6 
XW=W(I,J,K)#CONST6 

XP = ( Pi 1 , J ,K )#C0NST1+REQ( I , J,K )#PINT ) 

XP=P(I,J,K) 

XU=U(I,J,K) 

XV=V(I,J,K) 

XW=W( I,J,K + 1 ) 

CC XVIS=VISI I ,J,K )#RHOO#CPO#H#UO#1 .48314 

CC XCOND=COND( I,J,K )#RH00#CP0*H#U0#1 . 48814 

XVIS=VIS( I , J ,K )/VIS0 
XCCND=CCND( I , J ,K )/VIS0 
XSMP=RI( I,J,K) 

DDYY = 1 ./FLOATt NJMl-2 ) 

PE =SQRT( U( I , J ,K )##2+V( I , J ,K )##2+W( I , J ,K )**2 )*DDYY/COND( I , J ,K ) 
WRITE t b ,511 ) J ,XTEMP ,XR ,XU ,XV ,XW ,XP ,SMP( I , J ,K ) ,XVIS ,XCOND ,XSMP 
511 FORMATt 2X,'J=' , IS , 2X,F6 . 3 ,2X , F6 . 3 ,2X ,F7 . 3 , 2X, F7, 3 ,3X,F7 . 3 >3X 
I ,F12.3,3X,F9.6,2X,F6.2,2X,F6.2>2X,F6.3) 

503 CONTINUE 
502 CONTINUE 
ENDIF 
RETURN 
END 



004G7900 

00488000 

00488100 

00488200 

00488300 

00488400 

00488500 

00488b00 

00488700 

00488800 

00488900 

00489000 

00489100 

00489200 

00489300 

00489400 

00489500 

00489600 

00489700 

00489800 

00489900 

00490000 

00490100 

00490200 

00490300 

00490400 

00490500 

00490600 

00490700 

00490800 

00490900 

00491000 

00491100 

00491200 

0C491300 
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